20 lines
428 B
Plaintext
20 lines
428 B
Plaintext
PRINT FNfibonacci_r(1), FNfibonacci_i(1)
|
|
PRINT FNfibonacci_r(13), FNfibonacci_i(13)
|
|
PRINT FNfibonacci_r(26), FNfibonacci_i(26)
|
|
END
|
|
|
|
DEF FNfibonacci_r(N)
|
|
IF N < 2 THEN = N
|
|
= FNfibonacci_r(N-1) + FNfibonacci_r(N-2)
|
|
|
|
DEF FNfibonacci_i(N)
|
|
LOCAL F, I, P, T
|
|
IF N < 2 THEN = N
|
|
P = 1
|
|
FOR I = 1 TO N
|
|
T = F
|
|
F += P
|
|
P = T
|
|
NEXT
|
|
= F
|