11 lines
232 B
Text
11 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"
|