RosettaCodeData/Task/Factorial/ZX-Spectrum-Basic/factorial-3.basic

2 lines
61 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
DEF FN f(n) = VAL (("1" AND n<=0) + ("FN f(n-1)*n" AND n>0))