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

2 lines
50 B
Plaintext

DEF FN f(n) = VAL "n*FN f(n-1)*1"((n<1)*10+1 TO )