7 lines
179 B
Text
7 lines
179 B
Text
|
(setq *Letters (apply circ (mapcar char (range 65 90))))
|
||
|
|
|
||
|
|
(de caesar (Str Key)
|
||
|
|
(pack
|
||
|
|
(mapcar '((C) (cadr (nth (member C *Letters) Key)))
|
||
|
|
(chop (uppc Str)) ) ) )
|