RosettaCodeData/Task/Factorial/True-BASIC/factorial-2.basic

9 lines
142 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
DEF FNfactorial(n)
IF n < 2 THEN
LET FNfactorial = 1
ELSE
LET FNfactorial = n * FNfactorial(n-1)
END IF
END DEF
END