0votos

Criptografía: La Escitala Espartana en Haskell

por josejuan hace 6 años

Usando módulo

Otra de criptografia basica: cifrar y descifrar un texto, con el método espartano de la escitala.

1
2
3
4
5
6
7
scali txt m = map ((txt!!).snd) $ sort [(mod x m, x) | x <- [0..length txt - 1]] 
 
 
{-- 
*Main> scali "En un lugar de la Mancha, de cuyo nombre no quiero acordarme" 10 
"Ernu  n cyna dhoocuea  on ,nqr l oudladmiau ebergM rrmaaceoe" 
--} 

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.