Cifrado cesar - haskell

Iniciado por Sanko, Febrero 26, 2014, 02:29:05 PM

Tema anterior - Siguiente tema

0 Miembros y 1 Visitante están viendo este tema.

Febrero 26, 2014, 02:29:05 PM Ultima modificación: Mayo 01, 2014, 09:17:12 AM por Expermicid
Simple práctica del lenguaje, ya se que soy pesao repitiendo siempre mismos ciphers

Código: haskell
module Cesar where
import Data.Char
xEnc :: String -> Int -> String
xEnc z y = [chr ((ord x + y) `mod` 256) | x <- z]

xDec :: String -> Int -> String
xDec z y = [chr ((ord x - y) `mod` 256) | x <- z]
Sigueme en Twitter : @Sankosk
Estos nuevos staff no tienen puta idea XD