10 lines
139 B
Text
10 lines
139 B
Text
|
define fib(x);
|
||
|
|
lvars a , b;
|
||
|
|
1 -> a;
|
||
|
|
1 -> b;
|
||
|
|
repeat x - 1 times
|
||
|
|
(a + b, b) -> (b, a);
|
||
|
|
endrepeat;
|
||
|
|
a;
|
||
|
|
enddefine;
|