HaskellCourse/fold.hs

-- Exercice from slide 46

fsum::Num a => [a] -> a
fsum = foldl (+) 0

fmax::(Ord a, Num a) => [a] -> a
fmax = foldl max 0

for::[Bool] -> Bool
for = foldl (||) False