Vigenère cipher: Difference between revisions
Content added Content deleted
Cyril Nocton (talk | contribs) m (→Alternative) |
Cyril Nocton (talk | contribs) m (→Main solution) |
||
Line 914: | Line 914: | ||
=={{header|Common Lisp}}== |
=={{header|Common Lisp}}== |
||
====Main |
====Main version==== |
||
This doesn't assume anything about character codes other than A-Z being a contiguous block (but still, we could be using EBCDIC. Who knows.) |
This doesn't assume anything about character codes other than A-Z being a contiguous block (but still, we could be using EBCDIC. Who knows.) |
||
<lang lisp>(defun strip (s) |
<lang lisp>(defun strip (s) |
||
Line 946: | Line 946: | ||
enc: WMCEEIKLGRPIFVMEUGXXYILILZXYVBZLRGCEYAIOEKXIZGU |
enc: WMCEEIKLGRPIFVMEUGXXYILILZXYVBZLRGCEYAIOEKXIZGU |
||
dec: BEWARETHEJABBERWOCKTHEJAWSTHATTHECLAWSTHATCATCH</pre> |
dec: BEWARETHEJABBERWOCKTHEJAWSTHATTHECLAWSTHATCATCH</pre> |
||
====Alternative version==== |
====Alternative version==== |
||
No string to circular list conversion. |
No string to circular list conversion. |