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}}== |
||
==== |
====Main solution==== |
||
<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)) |