RosettaCodeData/Task/Fibonacci-sequence/QBasic/fibonacci-sequence-3.basic

8 lines
129 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
FUNCTION recFib (n)
IF (n < 2) THEN
2026-04-30 12:34:36 -04:00
recFib = n
2023-07-01 11:58:00 -04:00
ELSE
2026-04-30 12:34:36 -04:00
recFib = recFib(n - 1) + recFib(n - 2)
2023-07-01 11:58:00 -04:00
END IF
END FUNCTION