Advertisement
Guest User

Untitled

a guest
Dec 12th, 2018
76
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.20 KB | None | 0 0
  1. (defparameter *code* "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789")
  2. (defun encode (n) (aref *code* n))
  3. (defun decode (c) (position c *code*))
  4. (assert (= 3 (decode (encode 3))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement