Caesar cipher: Difference between revisions

m
Line 1,901:
(defun caesar (txt offset)
(map 'string
#'(lambda (xc)
(if (find xc +a+)
(char +a+ (mod (+ (position xc +a+) (* 2 offset)) 52))
xc))
txt))</lang>
 
422

edits