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