Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
( define ceasar-decrypt
( lambda (s)
( let (( ceasar-dec-10 ( lambda (c)
( ceasar-translate-char c -10))))
( string-map ceasar-dec-10
( string-upcase s )))))
(ceasar-encrypt "mensagem secreta")
”WOXCKQOWDCOMBODK”
(ceasar-decrypt "WOXCKQOWDCOMBODK")
”MENSAGEMTSECRETA”
Como usamos módulo 26, a tradução só faz sentido para as 26 letras maiúsculas;
perdemos o espaço entre as palavras (e o mesmo acontecerá com números e pontuação)! Os
procedimentos que traduzem caracteres só devem modificar aqueles que forem alfabéticos.
Usaremos o procedimento Scheme char-alphabetic para realizar esta verificação.
( define ceasar-translate-char
( lambda (c k)
(if ( char-alphabetic c)
( ceasar-idx- > char ( modulo (+ (char- > ceasar-idx c)
c )))
(ceasar-encrypt "mensagem secreta")
”WOXCKQOW COMBODK”
(ceasar-decrypt "WOXCKQOW COMBODK")
”MENSAGEM SECRETA”
26))
O ROT13 é uma cifra de César que tornou-se popular em fóruns na Internet para evitar
que trechos de mensagens sejam lidos por distração (por exemplo, respostas de charadas,
descrição de truques para jogos online, partes de filmes e livros). O ROT13 é exatamente
Versão Preliminar
igual ao nosso ceasar-encript se usado com k = 13.
k)
44
[ 27 de outubro de 2010 at 15:47 ]