10 lines
226 B
Forth
10 lines
226 B
Forth
INTEGER RECURSIVE FUNCTION RECURSIVE_FACTORIAL(X) RESULT(ANS)
|
|
INTEGER, INTENT(IN) :: X
|
|
|
|
IF (X <= 1) THEN
|
|
ANS = 1
|
|
ELSE
|
|
ANS = X * RECURSIVE_FACTORIAL(X-1)
|
|
END IF
|
|
|
|
END FUNCTION RECURSIVE_FACTORIAL
|