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

8 lines
142 B
Text

DEF FNfactorial(n)
IF n < 2 THEN
LET FNfactorial = 1
ELSE
LET FNfactorial = n * FNfactorial(n-1)
END IF
END DEF
END