RosettaCodeData/Task/Compile-time-calculation/PicoLisp/compile-time-calculation.l

6 lines
104 B
Plaintext

(de fact (N)
(apply * (range 1 N)) )
(de foo ()
(prinl "The value of fact(10) is " `(fact 10)) )