与 foldl
这就是左侧折叠的实现方式。注意与 foldr
(右侧折叠)相比,step 函数中参数的顺序是如何翻转的:
foldl :: (b -> a -> b) -> b -> [a] -> b
foldl f acc [] = acc
foldl f acc (x:xs) = foldl f (f acc x) xs -- = foldl f (acc `f` x) xs
左侧折叠 foldl
与左侧相关联。那是:
foldl (+) 0 [1, 2, 3] -- is equivalent to ((0 + 1) + 2) + 3
原因是 foldl
被评估为这样(看看 foldl
的归纳步骤):
foldl (+) 0 [1, 2, 3] -- foldl (+) 0 [ 1, 2, 3 ]
foldl (+) ((+) 0 1) [2, 3] -- foldl (+) (0 + 1) [ 2, 3 ]
foldl (+) ((+) ((+) 0 1) 2) [3] -- foldl (+) ((0 + 1) + 2) [ 3 ]
foldl (+) ((+) ((+) ((+) 0 1) 2) 3) [] -- foldl (+) (((0 + 1) + 2) + 3) []
((+) ((+) ((+) 0 1) 2) 3) -- (((0 + 1) + 2) + 3)
最后一行相当于 ((0 + 1) + 2) + 3
。这是因为 (f a b)
一般与(a `f` b)
相同,所以 ((+) 0 1)
特别与 (0 + 1)
相同。