La codificación de Luka

PorJosé A. Alonso 7-marzo-201714-marzo-2017

En el problema Kemija se utiliza la codificación de Luka consistente en añadir detrás de cada vocal la letra ‘p’ seguida de la vocal. Por ejemplo, la palabra «elena» se codifica como «epelepenapa» y «luisa» por «lupuipisapa».

Definir las funciones

   codifica   :: String -> String
   decodifica :: String -> String

1 2	codifica :: String -> String decodifica :: String -> String

tales que
+ (codifica cs) es la codificación de Luka de la cadena cs. Por ejemplo,

     λ> codifica "elena admira a luisa"
     "epelepenapa apadmipirapa apa lupuipisapa"
     λ> codifica "todo para nada"
     "topodopo paparapa napadapa"

λ> codifica "elena admira a luisa"

"epelepenapa apadmipirapa apa lupuipisapa"

λ> codifica "todo para nada"

"topodopo paparapa napadapa"

(decodifica cs) es la decodificación de Luka de la cadena cs. Por ejemplo,

     λ> decodifica "epelepenapa apadmipirapa apa lupuipisapa"
     "elena admira a luisa"
     λ> decodifica "topodopo paparapa napadapa"
     "todo para nada"

λ> decodifica "epelepenapa apadmipirapa apa lupuipisapa"

"elena admira a luisa"

λ> decodifica "topodopo paparapa napadapa"

"todo para nada"

Soluciones

codifica :: String -> String
codifica "" = ""
codifica (c:cs) | esVocal c = c : 'p' : c : codifica cs
                | otherwise = c : codifica cs

esVocal :: Char -> Bool
esVocal c = c `elem` "aeiou"

decodifica :: String -> String
decodifica "" = ""
decodifica (c:cs) | esVocal c = c : decodifica (drop 2 cs)
                  | otherwise = c : decodifica cs

codifica :: String -> String

codifica "" = ""

codifica (c:cs) | esVocal c = c : 'p' : c : codifica cs

| otherwise = c : codifica cs

esVocal :: Char -> Bool

esVocal c = c `elem` "aeiou"

decodifica :: String -> String

decodifica "" = ""

decodifica (c:cs) | esVocal c = c : decodifica (drop 2 cs)

| otherwise = c : decodifica cs

13 Comentarios

codifica :: String -> String
codifica = foldl' (\x y -> if y `elem` "aeiou" then x ++ [y,'p',y] else x ++ [y]) ""

decodifica :: String -> String
decodifica (x:y:z:xs) | x==z && y == 'p' && x `elem` "aeiou" = x : decodifica xs
                      | otherwise = x : decodifica (y:z:xs)
decodifica _          = []

codifica :: String -> String

codifica = foldl' (\x y -> if y `elem` "aeiou" then x ++ [y,'p',y] else x ++ [y]) ""

decodifica :: String -> String

decodifica (x:y:z:xs) | x==z && y == 'p' && x `elem` "aeiou" = x : decodifica xs

| otherwise = x : decodifica (y:z:xs)

decodifica _ = []

Responder

enrnarbej dice:

6-marzo-2017 a las 23:28

Haskell

codifica2 :: String -> String codifica2 = foldr (\x y -> if x `elem` "aeiou" then x:'p':x:y else x:y) ""

1
2

codifica2 :: String -> String
codifica2 = foldr (\x y -> if x `elem` "aeiou" then x:'p':x:y else x:y) ""

Responder
Juanjo Ortega (juaorture) dice:

7-marzo-2017 a las 20:29

La función decodifica no es correcta, falla el caso en que el mensaje acabe en consonante:

Haskell

-- *Main> codifica "raiz" -- "rapaipiz" -- *Main> decodifica it -- "rai"

1
2
3
4

-- *Main> codifica "raiz"
-- "rapaipiz"
-- *Main> decodifica it
-- "rai"

Responder

codifica   :: String -> String
codifica [] = []
codifica (x:xs) | elem x "aeiou" = x:'p':x:(codifica xs)
                | otherwise = x:codifica xs

decodifica :: String -> String
decodifica [] = []
decodifica (x:xs) | elem x "aeiou" = x:decodifica (drop 2 xs)
                  | otherwise = x:decodifica xs

codifica :: String -> String

codifica [] = []

codifica (x:xs) | elem x "aeiou" = x:'p':x:(codifica xs)

| otherwise = x:codifica xs

decodifica :: String -> String

decodifica [] = []

decodifica (x:xs) | elem x "aeiou" = x:decodifica (drop 2 xs)

| otherwise = x:decodifica xs

Responder

codifica   :: String -> String
codifica [] = []
codifica (x:xs) | x `elem` [a,e,i,o,u]  = x: p: x : codifica xs
                |otherwise = x:codifica xs
  where p = chr 112
        a = chr 97
        e = chr 101
        i = chr 105
        o = chr 111
        u = chr 117

decodifica :: String -> String      
decodifica [] = []
decodifica (x:xs) | x `elem`  [a,e,i,o,u]  = x : decodifica (drop 2 xs)
                  | otherwise = x : decodifica  xs
  where
  a = chr 97
  e = chr 101
  i = chr 105
  o = chr 111
  u = chr 117

codifica :: String -> String

codifica [] = []

codifica (x:xs) | x `elem` [a,e,i,o,u] = x: p: x : codifica xs

|otherwise = x:codifica xs

where p = chr 112

a = chr 97

e = chr 101

i = chr 105

o = chr 111

u = chr 117

decodifica :: String -> String

decodifica [] = []

decodifica (x:xs) | x `elem` [a,e,i,o,u] = x : decodifica (drop 2 xs)

| otherwise = x : decodifica xs

where

a = chr 97

e = chr 101

i = chr 105

o = chr 111

u = chr 117

Responder

codifica :: String -> String
codifica [] = [] 
codifica (x:xs) = if x `elem` vocales then x:'p':x:codifica xs else x: (codifica xs) 

decodifica :: String -> String
decodifica [] = []
decodifica (x:xs) = if x `elem` vocales  then x:decodifica (drop 2 xs)  else ( x:decodifica xs)

vocales = "aeiou"

codifica :: String -> String

codifica [] = []

codifica (x:xs) = if x `elem` vocales then x:'p':x:codifica xs else x: (codifica xs)

decodifica :: String -> String

decodifica [] = []

decodifica (x:xs) = if x `elem` vocales then x:decodifica (drop 2 xs) else ( x:decodifica xs)

vocales = "aeiou"

Responder

codifica   :: String -> String
codifica "" = ""
codifica (c:cs) | c `elem` vocales = c:'p':c:codifica cs
                | otherwise = c:codifica cs

decodifica :: String -> String
decodifica (c:cs) | c `elem` vocales = c: decodifica (drop 2 cs)
                  | otherwise = c:decodifica cs
                  
          
vocales = ['a','e','i','o','u']

codifica :: String -> String

codifica "" = ""

codifica (c:cs) | c `elem` vocales = c:'p':c:codifica cs

| otherwise = c:codifica cs

decodifica :: String -> String

decodifica (c:cs) | c `elem` vocales = c: decodifica (drop 2 cs)

| otherwise = c:decodifica cs

vocales = ['a','e','i','o','u']

Responder

codifica   :: String -> String
codifica "" = ""
codifica (x:xs) | elem x "aeiou" = x:'p':x:(codifica xs)
                | otherwise = x:(codifica xs)

decodifica :: String -> String
decodifica "" = ""
decodifica (x:xs) | elem x "aeiou" = x:(decodifica (drop 2 xs))
                  | otherwise = x:(decodifica xs)

codifica :: String -> String

codifica "" = ""

codifica (x:xs) | elem x "aeiou" = x:'p':x:(codifica xs)

| otherwise = x:(codifica xs)

decodifica :: String -> String

decodifica "" = ""

decodifica (x:xs) | elem x "aeiou" = x:(decodifica (drop 2 xs))

| otherwise = x:(decodifica xs)

Responder

codifica :: String -> String
codifica [] = []
codifica (c:cs) | esVocal c = c:'p':c: codifica cs
                | otherwise = c:       codifica cs

esVocal c = c `elem` "aeiou"
decodifica :: String -> String
decodifica [] = []
decodifica (c:d:e:cs) | esVocal c = c : decodifica cs
                      | otherwise = c : decodifica (d:e:cs)

codifica :: String -> String

codifica [] = []

codifica (c:cs) | esVocal c = c:'p':c: codifica cs

| otherwise = c: codifica cs

esVocal c = c `elem` "aeiou"

decodifica :: String -> String

decodifica [] = []

decodifica (c:d:e:cs) | esVocal c = c : decodifica cs

| otherwise = c : decodifica (d:e:cs)

Responder

Juanjo Ortega (juaorture) dice:

7-marzo-2017 a las 20:35

En la función decodifica faltan casos base.

Responder

codifica   :: String -> String
codifica [] = []
codifica  (x:xs) | x `elem` "aeiou" = x:'p' : codifica xs
                 | otherwise = x:codifica xs
                   
decodifica :: String -> String
decodifica (x:xs) |  x `elem` "aeiou"  = x:decodifica (drop 1 xs)
                  | otherwise = x:decodifica xs
decodifica _ = []

codifica :: String -> String

codifica [] = []

codifica (x:xs) | x `elem` "aeiou" = x:'p' : codifica xs

| otherwise = x:codifica xs

decodifica :: String -> String

decodifica (x:xs) | x `elem` "aeiou" = x:decodifica (drop 1 xs)

| otherwise = x:decodifica xs

decodifica _ = []

Responder

esVocal :: Char -> Bool
esVocal x = x `elem` "aeiouAEIOU"

codifica :: String -> String
codifica []     = []
codifica (x:xs) | esVocal x = x : 'p' : x : codifica xs
                | otherwise = x : codifica xs

decodifica :: String -> String
decodifica []         = []
decodifica (x:y:z:xs) | esVocal x = x : decodifica xs
                      | otherwise = x : decodifica (y:z:xs)
decodifica xs         = xs

esVocal :: Char -> Bool

esVocal x = x `elem` "aeiouAEIOU"

codifica :: String -> String

codifica [] = []

codifica (x:xs) | esVocal x = x : 'p' : x : codifica xs

| otherwise = x : codifica xs

decodifica :: String -> String

decodifica [] = []

decodifica (x:y:z:xs) | esVocal x = x : decodifica xs

| otherwise = x : decodifica (y:z:xs)

decodifica xs = xs

Responder

codifica :: String -> String
codifica [] = ""
codifica (x:xs) | esVocal x = x:'p':x: codifica xs
                | otherwise = x : codifica xs

decodifica :: String -> String
decodifica [] = ""
decodifica [x] = [x]
decodifica (x:y:z:xs) | esVocal x && y=='p' = z : decodifica xs
                      | otherwise = x : decodifica (y:z:xs)

esVocal :: Char -> Bool
esVocal x = x=='a' || x=='e' || x=='i' || x=='o' || x=='u'

codifica :: String -> String

codifica [] = ""

codifica (x:xs) | esVocal x = x:'p':x: codifica xs

| otherwise = x : codifica xs

decodifica :: String -> String

decodifica [] = ""

decodifica [x] = [x]

decodifica (x:y:z:xs) | esVocal x && y=='p' = z : decodifica xs

| otherwise = x : decodifica (y:z:xs)

esVocal :: Char -> Bool

esVocal x = x=='a' || x=='e' || x=='i' || x=='o' || x=='u'

Responder

La codificación de Luka

Soluciones

13 Comentarios

Escribe tu soluciónCancel reply

Entradas recientes

Buscar

Correo electrónico

Soluciones

Se puede imprimir o compartir con

13 Comentarios

Escribe tu soluciónCancel reply

Entradas recientes

Buscar

Correo electrónico