list - Haskell - 使用 foldr/foldl 对列表列表求和

Question

我正在尝试编写函数来对列表列表求和(输入 Integer )。我已经使用 map 完成了:

summat :: [[Integer]] -> Integer
summat (x:xs) = sum . map sum $ (x:xs)

但不知道如何使用 foldr 让它工作/ foldl .我试过类似的东西:

summat2 :: [[Integer]] -> Integer
summat2 xs = foldr suma 0 xs
        where suma x _ = ???

但当然它只会产生很多错误。你对我有什么暗示吗？也许是 concat ?

Answer 1

如果你想避免任何其他作用于集合的多个元素的函数，试试这个

foldr ((+) . foldr (+) 0) 0

这仅使用 (+)、foldr 和 (.)。