RosettaCodeData/Task/Factorial/Retro/factorial.retro

3 lines
97 B
Plaintext

: <factorial> dup 1 = if; dup 1- <factorial> * ;
: factorial dup 0 = [ 1+ ] [ <factorial> ] if ;