mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Factorial/XLISP/factorial.l

7 lines
95 B
Common Lisp
Raw Permalink Blame History

(defun factorial (x)
(if (< x 0)
nil
(if (<= x 1)
1
(* x (factorial (- x 1))) ) ) )
Reference in New Issue View Git Blame Copy Permalink