Find words which contains more than 3 e vowels: Difference between revisions

m
(→‎{{header|Haskell}}: Added a variant, defining the predicate in terms of a single fold)
Line 1,185:
 
p :: String -> Bool
p = uncurry (&&) . (first (3 <) . foldr rule (0, True))
rule :: Char -> (Int, Bool) -> (Int, Bool)
9,655

edits