RosettaCodeData/Task/Factorial/NewLISP/factorial.newlisp
2017-09-25 22:28:19 +02:00

4 lines
105 B
Text

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