8 lines
164 B
Common Lisp
8 lines
164 B
Common Lisp
|
;; Project : Factorial
|
||
|
|
|
||
|
|
(defun factorial (n)
|
||
|
|
(cond ((= n 1) 1)
|
||
|
|
(t (* n (factorial (- n 1))))))
|
||
|
|
(format t "~a" "factorial of 8: ")
|
||
|
|
(factorial 8)
|