8 lines
157 B
Text
8 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
|