Traduzor para Catiorineoes

main.hs

import Data.List (find, isPrefixOf)

data Syllab = Syllab { findStr :: String, replaceStr :: String }
  deriving Show

appliesTo string syllab = isPrefixOf (findStr syllab) string

vocabulary = [Syllab "cho" "tio", 
              Syllab "nho" "neo", 
              Syllab "rr" "r",
              Syllab "mul" "mol",
              Syllab "lhe" "lie",
              Syllab "nh" "ni"]


step :: [Syllab] -> (String, String) -> (String, String)
step syllabs (current, remaining) =
    case find (appliesTo remaining) syllabs of
        Nothing ->
            let current' = current ++ [head remaining] in
            let remaining' = tail remaining in
            (current', remaining')
        Just syllab ->
            let current' = current in -- current ++ (replaceStr syllab) in
            let remaining' = (replaceStr syllab) ++ (drop (length (findStr syllab)) remaining) in
            (current', remaining')

translate :: [Syllab] -> String -> String
translate syllabs string =
    translate' syllabs ("", string) where
        translate' syllabs (cur, rem) =
            if rem == "" then
                cur
            else
                translate' syllabs (step syllabs (cur, rem))

main = do
    (fmap (translate vocabulary) getLine) >>= print