Parcourir la source

Implement foldable or

DricomDragon il y a 5 ans
Parent
commit
d0fe430f5c
1 fichiers modifiés avec 3 ajouts et 0 suppressions
  1. 3 0
      fold.hs

+ 3 - 0
fold.hs

@@ -5,3 +5,6 @@ fsum = foldl (+) 0
 
 fmax::(Ord a, Num a) => [a] -> a
 fmax = foldl max 0
+
+for::[Bool] -> Bool
+for = foldl (||) False