6 lines
141 B
Common Lisp
6 lines
141 B
Common Lisp
;; In theory this should exactly translate into `defun-fact.html`, q.v.
|
|
|
|
(defun fact (n)
|
|
(cond ((zerop n) 1)
|
|
(t (* n (fact (1- n))))))
|