Skip to content

Instantly share code, notes, and snippets.

@RTfXGaGeqSeItbMUgpFlekUs

RTfXGaGeqSeItbMUgpFlekUs/fact.lisp

Created April 29, 2010 21:10
Show Gist options
  • Save RTfXGaGeqSeItbMUgpFlekUs/384251 to your computer and use it in GitHub Desktop.
Save RTfXGaGeqSeItbMUgpFlekUs/384251 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
fact.lisp
(defun fact (n)
(labels ((internal (n total)
(if (= n 0) total
(internal (- n 1) (* total n)))))
(internal n 1)))
(defun fact-notail (n)
(if (= n 0) 1
(* n (fact-notail (- n 1)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment