RosettaCodeData/Task/Factorial/BBC-BASIC/factorial.bbc
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07: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)