RosettaCodeData/Task/Factorial/BBC-BASIC/factorial.basic
2023-07-01 13:44:08 -04:00

8 lines
150 B
Text

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