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

4 lines
71 B
Common Lisp
Raw Blame History

(defun fact (x)
(cond ((> 2 x) 1)
(t (* x (fact (- x 1))))))
Reference in New Issue View Git Blame Copy Permalink