RosettaCodeData/Task/Factorial/LFE/factorial-3.lfe

5 lines
81 B
Plaintext

(defun factorial
((0) 1)
((n) (when (> n 0))
(* n (factorial (- n 1)))))