RosettaCodeData/Task/Factorial/BBC-BASIC/factorial.basic

9 lines
150 B
Plaintext

*FLOAT64
@% = &1010
PRINT FNfactorial(18)
END
DEF FNfactorial(n)
IF n <= 1 THEN = 1 ELSE = n * FNfactorial(n-1)