RosettaCodeData/Task/Factorial/PicoLisp/factorial-2.l

3 lines
41 B
Plaintext

(de fact (N)
(apply * (range 1 N) ) )