6 lines
115 B
Text
6 lines
115 B
Text
|
TO fib(n @ Integer.T) (
|
||
|
|
VAR seq <- [0, 1];
|
||
|
|
EVERY 3:to(n) DO seq:put(seq:pop + seq[1]);
|
||
|
|
RET seq[-1];
|
||
|
|
);
|