Bacon cipher: Difference between revisions
m
→{{header|Common Lisp}}
Cyril Nocton (talk | contribs) |
Cyril Nocton (talk | contribs) |
||
Line 1,036:
(#\y . (B B A A A)) (#\z . (B B A A B)) (#\space . (B B B A A))))
(defun encode (txt msg
(let (cipher mask)
(setf msg (string-downcase msg))
(loop for c across msg do
| |||