Sha256: b6b2387a30423efbeeb5b9767dbfc8aabb47c0769bfcd627d4c89d6d20da5cfc
Contents?: true
Size: 719 Bytes
Versions: 263
Compression:
Stored size: 719 Bytes
Contents
module PigLatin (translate) where
import Data.Char (isLetter)
import Data.List (isSuffixOf)
consonantCluster :: String -> (String, String)
consonantCluster = qu . break (`elem` "aeiou")
where qu (cs, 'u':rest) | "q" `isSuffixOf` cs = (cs ++ "u", rest)
qu pair = pair
translateWord :: String -> String
translateWord xs@('y':'t':_) = xs ++ "ay" -- I'm not proud of this ugly hack,
translateWord xs@('x':'r':_) = xs ++ "ay" -- but now it passes the tests.
translateWord w0 = concat [before, w, cs, "ay", after]
where
(before, w1) = break isLetter w0
(w2, after) = span isLetter w1
(cs, w) = consonantCluster w2
translate :: String -> String
translate = unwords . map translateWord . words
Version data entries
263 entries across 263 versions & 1 rubygems