Если вы хотите сбросить список, я вижу четыре способа сделать это.
Свернуть справа от списка, с рекурсивным членом справа
foldrr (-) 100 [1..10] = 1 - (2 - (3 - (4 - (5 - (6 - (7 - (8 - (9 - (10 - (100)))) )))))) = 95
foldrr :: (a -> b -> b) -> b -> [a] -> b
foldrr step zero (x:xs) = step x (foldrr step zero xs)
foldrr _ zero [] = zero
Свернуть справа от списка, с рекурсивным членом слева
foldrl (-) 100 [1..10] = (((((((((100) - 10) - 9) - 8) - 7) - 6) - 5) - 4) - 3 ) - 2) - 1 = 45
foldrl :: (a -> b -> a) -> a -> [b] -> a
foldrl step zero (x:xs) = step (foldrl step zero xs) x
foldrl _ zero [] = zero
Сложите слева от списка рекурсивный член справа
foldlr (-) 100 [1,10] = 10 - (9 - (8 - (7 - (6 - (5 - (4 - (3 - (2 - (1 - (100)))) )))))) = 105
foldlr :: (a -> b -> b) -> b -> [a] -> b
foldlr step zero (x:xs) = foldlr step (step x zero) xs
foldlr _ zero [] = zero
Сложите слева от списка рекурсивный член слева
foldl (-) 100 [1..10] = (((((((((100) - 1) - 2) - 3) - 4) - 5) - 6) - 7) - 8 ) - 9) - 10 = 45
foldll :: (a -> b -> a) -> a -> [b] -> a
foldll step zero (x:xs) = foldll step (step zero x) xs
foldll _ zero [] = zero
Только две из этих сгибов превратили его в Прелюдию как foldr и foldl. Была ли какая-то причина просто включать две складки, и почему эти два?
