RosettaCodeData/Task/Fibonacci-sequence/TI-89-BASIC/fibonacci-sequence-2.basic

13 lines
91 B
Plaintext

fib(n)
Func
Local a,b,c,i
0→a
1→b
For i,1,n
a→c
b→a
c+b→b
EndFor
a
EndFunc