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