Vigenère cipher: Difference between revisions
m
→Alternative version
Cyril Nocton (talk | contribs) m (→Main solution) |
Cyril Nocton (talk | contribs) |
||
Line 960:
(let ((text (strip text)) (key (strip key)) (i -1))
(map 'string
(lambda (
(setf i (mod (1+ i) (length key)))
(char +a+ (mod (+ (position
text)))</lang>
2. Execution
{{out}}▼
<pre>(vigenere "« Through the Looking-Glass »" "Lewis Carroll")
(vigenere "ELNWMIHKYSWZZOEVYILRJG" "Lewis Carroll" :decode t)</pre>▼
▲{{out}}
<pre>
"ELNWMIHKYSWZZOEVYILRJG"
▲(vigenere "ELNWMIHKYSWZZOEVYILRJG" "Lewis Carroll" :decode t)
"THROUGHTHELOOKINGGLASS"</pre>
| |||