3 lines
74 B
Common Lisp
3 lines
74 B
Common Lisp
|
(defun factorial (n)
|
||
|
|
(reduce #'* (loop for i from 1 to n collect i)))
|