7 lines
157 B
Text
7 lines
157 B
Text
FUNCTION factorial (n AS Integer) AS Integer
|
|
IF n < 2 THEN
|
|
factorial = 1
|
|
ELSE
|
|
factorial = n * factorial(n-1)
|
|
END IF
|
|
END FUNCTION
|