0votos

traductor a pig latino en Haskell

por josejuan hace 8 meses

Las reglas no están muy claras pero más o menos...

facil traductor de frases en español a pig latino en español y visceversa, osea de piglatino en español a español, y en ves de tener el ay como el piglatino tiene "a", puede alguien hacerlo en c ?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
import Data.Char  
 
piglatin = unwords ∘ map pig ∘ words 
 
pig ('q':'u':xs) = pig ('c':xs) 
pig ('h':xs) = 'h': pig xs 
pig xs@(x:_) | vocal x   = xs ⧺ "na"  
             | otherwise = dropWhile (¬ ∘ vocal) xs ⧺ takeWhile (¬ ∘ vocal) xs ⧺ "a" 
 
vocal c = c ∈ "aeiouáéíóúäëïöüâêîôû" 
 
{- 
 
> forever $ getLine >>= putStrLn . piglatin 
el burro del hortelano está comiendo queso del bueno 
elna urroba elda hortelanona estána omiendoca esoca elda uenoba 
 
-} 

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.