12 lines
232 B
Text
12 lines
232 B
Text
|
' Factorial
|
||
|
|
FUNCTION factorial(NUMBER n) TYPE NUMBER
|
||
|
|
IF n <= 1 THEN
|
||
|
|
RETURN 1
|
||
|
|
ELSE
|
||
|
|
RETURN n * factorial(n - 1)
|
||
|
|
ENDIF
|
||
|
|
END FUNCTION
|
||
|
|
|
||
|
|
n = VAL(TOKEN$(ARGUMENT$, 2))
|
||
|
|
PRINT n, factorial(n) FORMAT "%ld! = %ld\n"
|