RosettaCodeData/Task/Factorial/Common-Lisp/factorial-4.lisp

(defun factorial (n)
    (reduce #'* (loop for i from 1 to n collect i)))
June 2018 Update 2018-06-22 20:57:24 +00:00			`(defun factorial (n)`
September Morn Update 2019-09-12 10:33:56 -07:00			`(reduce #'* (loop for i from 1 to n collect i)))`