RosettaCodeData/Task/Factorial/NewLISP/factorial.l
2023-07-01 13:44:08 -04:00

4 lines
105 B
Common Lisp

> (define (factorial n) (exp (gammaln (+ n 1))))
(lambda (n) (exp (gammaln (+ n 1))))
> (factorial 4)
24