list - 列表中相同位置元素的总和

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