Bacon cipher: Difference between revisions
m
→{{header|Common Lisp}}
Cyril Nocton (talk | contribs) |
Cyril Nocton (talk | contribs) |
||
Line 1,034:
(#\y . (b b a a a)) (#\z . (b b a a b)) (#\space . (b b b a a))))
(defun encode (text message)
(let (cipher key code)
(loop for c across message do
Line 1,053 ⟶ 1,049:
(defun decode (message)
(let (key code letter)
(loop for c across message when (alpha-char-p c) do
| |||