RosettaCodeData/Task/Fibonacci-sequence/QBasic/fibonacci-sequence-3.basic
2023-07-01 13:44:08 -04:00

7 lines
125 B
Text

FUNCTION recFib (n)
IF (n < 2) THEN
recFib = n
ELSE
recFib = recFib(n - 1) + recFib(n - 2)
END IF
END FUNCTION