Programação Funcional e Concorrente com Scheme

notas de aula -
Jerônimo C. Pellegrini
( define char- > ceasar-idx
( lambda (x)
( let ((a ( char- > integer #\A)))
(- ( char- > integer x) a ))))
( define ceasar-idx- > char
( lambda (x)
( let ((a ( char- > integer #\A)))
( let ((b (+ x a )))
( integer- > char b )))))
(char->ceasar-idx #\B)
1
O procedimento ceasar-translate-char faz o deslocamento do caracter.
( define ceasar-translate-char
( lambda (c k)
( ceasar-idx- > char ( modulo (+ (char- > ceasar-idx c)
k)
26))))
(ceasar-translate-char #\B 10)
#\L
Para decifrar o caracter deslocamos no sentido contrário:
(ceasar-translate-char #\L -10)
#\B
Versão Preliminar
Para cifrar e decifrar mensagens criamos procedimentos que deslocam caracteres e
usamos string-map para aplicá-los sobre a mensagem:
( define ceasar-encrypt
( lambda (s)
( let (( ceasar-enc-10 ( lambda (c)
( ceasar-translate-char c 10))))
( string-map ceasar-enc-10
( string-upcase s )))))
[ 27 de outubro de 2010 at 15:47 ]
43