Jump to content

Find words with alternating vowels and consonants: Difference between revisions

m
→‎{{header|Haskell}}: (slight disaggregation)
m (→‎{{header|Haskell}}: (slight disaggregation))
Line 578:
isLongAlternator s =
9 < length s
&& all (uncurry (/=) . join bimap isVowel)alternating (zip s $ tail s)
 
alternating :: (Char, Char) -> Bool
alternating = uncurry (/=) . join bimap isVowel
 
isVowel :: Char -> Bool
9,655

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.