RosettaCodeData/Task/Factorial/ZX-Spectrum-Basic/factorial-2.zx

2 lines
61 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
DEF FN f(n) = VAL (("1" AND n<=0) + ("n*FN f(n-1)" AND n>0))