在同一位置的列表中元素的總和

Question

如何在同一位置執行列表中元素的總和？ 例如：

[[2,3,4],[5,6,7],[8,9,10]]=[15,18,21] 

感謝

Answer 1

嘗試：

sumIn :: Num a => [[a]] -> [a] 
sumIn = foldl (zipWith (+)) (repeat 0) 

注意，如果該參數是一個空表，結果是零的無限名單。所以，你可能要分別對待這種情況下，例如

sumIn :: Num a => [[a]] -> [a] 
sumIn [] = [] 
sumIn xs = foldl (zipWith (+)) (repeat 0) xs 

Answer 2

你可以調換名單，並在結果總結每個列表：

ghci> import Data.List (transpose) 
ghci> map sum $ transpose [[2,3,4],[5,6,7],[8,9,10]] 
[15,18,21] 

不像其他的解決方案，該工程的名單長度不均勻。

Answer 3

下面是一個例子GHCI：

λ> let xs = [[2,3,4],[5,6,7],[8,9,10]] 
λ> foldr1 (zipWith (+)) xs 
[15,18,21]