Bladeren bron

Implement foldable or

DricomDragon 5 jaren geleden
bovenliggende
commit
d0fe430f5c
1 gewijzigde bestanden met toevoegingen van 3 en 0 verwijderingen
  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