4 lines
83 B
Text
4 lines
83 B
Text
(defun factorial (n)
|
|
(do ((x n (* x n)))
|
|
((= n 1) x)
|
|
(setq n (1- n))))
|