Caesar cipher: Difference between revisions
Content added Content deleted
Cyril Nocton (talk | contribs) |
Cyril Nocton (talk | contribs) |
||
Line 1,849: | Line 1,849: | ||
=={{header|Common Lisp}}== |
=={{header|Common Lisp}}== |
||
====W/ |
====W/ decryption function==== |
||
<lang lisp>(defun encipher-char (ch key) |
<lang lisp>(defun encipher-char (ch key) |
||
(let* ((c (char-code ch)) (la (char-code #\a)) (ua (char-code #\A)) |
(let* ((c (char-code ch)) (la (char-code #\a)) (ua (char-code #\A)) |
||
Line 1,890: | Line 1,890: | ||
> (caesar-decipher "Qeb nrfzh yoltk clu grjmp lsbo qeb ixwv ald" 23) |
> (caesar-decipher "Qeb nrfzh yoltk clu grjmp lsbo qeb ixwv ald" 23) |
||
"The quick brown fox jumps over the lazy dog"</pre> |
"The quick brown fox jumps over the lazy dog"</pre> |
||
====W/o decyphering function==== |
====W/o decyphering function==== |
||
1. Note |
1. Note |