WHK Security

Programación => Otros lenguajes => Mensaje iniciado por: sanko en diciembre 30, 2013, 02:47:05 pm

Título: Cifrado cesar - haskell
Publicado por: sanko en diciembre 30, 2013, 02:47:05 pm
Gracias a overxfl0w que me estuvo ayudando con la recursividad de haskell pude acabar el cifrado:

Código: [Seleccionar]
import Data.Char

xEnc x y = ['a'..'z'] !! (((x + y) `mod` 26 ))
xDec x y = ['a'..'z'] !! (((x - y) `mod` 26 ))

encFinal :: String -> Int -> String
encFinal [] y = ""
encFinal (x:xs) y = (xEnc ((ord x)-97) y):(encFinal xs y)

decFinal :: String -> Int -> String
decFinal [] y = ""
decFinal (x:xs) y = (xDec ((ord x)-97) y):(decFinal xs y)

Saludos.
PD : Over, maquina