Find words with alternating vowels and consonants: Difference between revisions

→‎{{header|Haskell}}: Edited a comment to match new title, and used Data.Bifunctor.
(→‎{{header|Haskell}}: Edited a comment to match new title, and used Data.Bifunctor.)
Line 569:
 
=={{header|Haskell}}==
<lang haskell>import DataControl.List.SplitMonad (chunksOfjoin)
import Data.Bifunctor (bimap)
import Data.List.Split (chunksOf)
 
------- WORDS WITHOUTWITH SUCCESSIVEALTERNATING VOWELS ORAND CONSONANTS -----
 
isLongAlternator :: String -> Bool
isLongAlternator s =
9 < length s
&& all (\uncurry (a, b/=) ->. isVoweljoin a /=bimap isVowel b) (zip s $ tail s)
 
isVowel :: Char -> Bool
9,659

edits