RosettaCodeData/Task/Fibonacci-sequence/BASIC/fibonacci-sequence-7.basic

8 lines
125 B
Text
Raw Permalink Normal View History

2019-09-12 10:33:56 -07:00
FUNCTION recFib (n)
IF (n < 2) THEN
recFib = n
ELSE
recFib = recFib(n - 1) + recFib(n - 2)
END IF
END FUNCTION