对嵌套列表中的项目求和 f#

Question

我想分别对列表列表的每个第 n 个元素求和。即

[[3;2;1]; [4;3;5]] should sum to [7;5;6]

所有嵌套列表都具有相同的长度，但该长度未知。在示例中为 3，但可能为 4、5 或 6。我知道如何在程序上执行此操作，但我需要 F# 中的功能解决方案。谢谢

Answer 1

计算总和的一种方法是：

let sum = List.reduce (List.map2 (+)) vs

reduce 函数使用 reducer 函数将元素组合成一个序列。例如：

List.reduce (+) [1;2;4]

这里reduce 结合1 和2 使用+ 得到3。然后3 与4 结合得到4。

在 OP 示例中，我们也喜欢对列表进行归约，但输入列表中的元素本身就是列表，因此归约函数必须更复杂一些。

给定[3;2;1] 和[4;3;5] 的reducer 函数将产生[7;5;6]。这是分段加法。一种方法是使用List.map2。通常map 使用映射器函数映射列表中的所有值。 map2 允许我们同时迭代两个输入并将两个值映射为一个。

List.map2 (+) [3;2;1] [4;3;5]

因此产生：[7;5;6]

上面的函数对于 int list list 的 reducer 函数有正确的签名，因此答案是：

let sum = List.reduce (List.map2 (+)) vs

Answer 2

首先，我将假设您的列表列表实际上不包含内部元组。所以这个问题应该这样表述： [[3;2;1]; [4;3;5]] should sum to [7;5;6]。如果您可以展示一个程序解决方案，那就太好了，例如，通常很容易转换为list comprehension。但请参阅下面的两种方法：

let xs = [[3;2;1]; [4;3;5]]

(xs.[0],xs.[1]) ||> List.map2 (+) // val it : int list = [7; 5; 6]

xs 
|> List.transpose
|> List.map List.sum //val it : int list = [7; 5; 6]