Skip to content

Instantly share code, notes, and snippets.

@ahungry
Last active January 21, 2016 04:16
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ahungry/94c8e255d6931b1cb2af to your computer and use it in GitHub Desktop.
Save ahungry/94c8e255d6931b1cb2af to your computer and use it in GitHub Desktop.
Caesar Cipher with Common Lisp Glyphs package
(ƒ caesar-cipher
α → (let ((n (or αb 11)))
(coerce (ψ (ψ (coerce α 'list)
α → (mod (- (+ (char-code α) n) 97) 26))
α → (code-char (+ 97 α))) 'string)))
Common Lisp using my package https://github.com/ahungry/glyphs
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment