9 lines
120 B
Text
9 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
|