Explorar o código

Implement foldable or

DricomDragon %!s(int64=5) %!d(string=hai) anos
pai
achega
d0fe430f5c
Modificáronse 1 ficheiros con 3 adicións e 0 borrados
  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