8 lines
120 B
Text
8 lines
120 B
Text
DEF FNfactorial(n)
|
|
LET f = 1
|
|
FOR i = 2 TO n
|
|
LET f = f*i
|
|
NEXT i
|
|
LET FNfactorial = f
|
|
END DEF
|
|
END
|