13 lines
91 B
Text
13 lines
91 B
Text
|
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
|