mike
/
transcendental-lisp
1
1
Fork 0
Code Issues 10 Pull Requests Packages Projects Releases Wiki Activity
transcendental-lisp/lisp/random/fact.lisp

4 lines
59 B
Common Lisp
Raw Blame History

(defun fact (x)
(if (< x 2) 1
(* x (fact (- x 1)))))
Reference in New Issue View Git Blame Copy Permalink