gistfile1.hs

-- Make a pattern to match the consonants and vowels in a word where a cons is
-- not "aeiou" or y preceded by a cons e.g., "happy" -> ("happy", "cvccv")
wordDesc :: String -> (String, String)
wordDesc str =
    (str, [corv (a,b,i) | (a,b,i) <- zip3 str (rotateR str) [0..len]])
    where len = length str - 1
          corv (a,b,i)
            | a == 'y' && i /= 0 && b `notElem` vs = 'v'
            | a `elem` vs = 'v'
            | otherwise = 'c'
            where vs = "aeiou"