Bacon cipher: Difference between revisions
m
→Association tables
Cyril Nocton (talk | contribs) |
Cyril Nocton (talk | contribs) |
||
Line 1,038:
(defun encode (text message)
(let (cipher code)
(setf
(loop for c across message do
(setf code (append code (cdr (assoc c +codes+)))))
Line 1,056:
(if (lower-case-p c)
(setf code (append code '(A)))
(setf
(when (= (length code) 5)
(setf key (append key (list (car (rassoc code +codes+ :test #'equal)))))
| |||