Skip to content

Instantly share code, notes, and snippets.

@tomoh1r

tomoh1r/みためはこちらのほうがすき.lsp

Created October 27, 2015 12:56
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 tomoh1r/3c3697fa3a110ae6d6c3 to your computer and use it in GitHub Desktop.
Save tomoh1r/3c3697fa3a110ae6d6c3 to your computer and use it in GitHub Desktop.
Download ZIP
インデントとかはこちらのほうがすき
Raw
みためはこちらのほうがすき.lsp
(defun fact (n &optional m) (
if (zerop n)
m
(fact (1- n) (if m (* m n) n))
))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment