9 lines
139 B
Text
9 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;
|