Vigenère cipher: Difference between revisions

Content deleted Content added

Inline

@@ Line 960: / Line 960: @@
   (let ((text (strip text)) (key (strip key)) (i -1))
     (map 'string
-      (lambda (x)
+      (lambda (c)
         (setf i (mod (1+ i) (length key)))
-        (char +a+ (mod (+ (position x +a+) (* d (position (elt key i) +a+))) 26)))
+        (char +a+ (mod (+ (position c +a+) (* d (position (elt key i) +a+))) 26)))
       text)))</lang>
 . 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>