RosettaCodeData/Task/Factorial/Joy/factorial.joy

2 lines
62 B
Text
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
DEFINE factorial == [0 =] [pop 1] [dup 1 - factorial *] ifte.