Bacon cipher: Difference between revisions
m
→Association lists
Cyril Nocton (talk | contribs) |
Cyril Nocton (talk | contribs) |
||
Line 1,017:
For instance.
<pre>(cdr (assoc #\a +codes+)) = (
2. Program
Line 1,024:
(defconstant +codes+
'((#\
(#\
(#\
(#\
(#\
(#\
(#\
(#\
(#\
(defun encode (text message)
Line 1,041:
(let (cipher key code)
(loop for c across message do
(setf code (cdr (assoc (char-
(setf key (append key code)))
(loop for c across text always key do
Line 1,086:
"I'VE knOwn ADveNtures, seEn plACes YoU PEoplE will NEvER SEe, i'Ve beEn offwoRl
d anD BaCK... FRon"
(decode (encode +monologue+ +key+))
" TEARS IN RAIN "</pre>
|