langs a-z
This commit is contained in:
parent
db842d013d
commit
d066446780
11389 changed files with 98361 additions and 1020 deletions
9
Task/Fibonacci-sequence/Pop11/fibonacci-sequence.pop11
Normal file
9
Task/Fibonacci-sequence/Pop11/fibonacci-sequence.pop11
Normal file
|
|
@ -0,0 +1,9 @@
|
|||
define fib(x);
|
||||
lvars a , b;
|
||||
1 -> a;
|
||||
1 -> b;
|
||||
repeat x - 1 times
|
||||
(a + b, b) -> (b, a);
|
||||
endrepeat;
|
||||
a;
|
||||
enddefine;
|
||||
Loading…
Add table
Add a link
Reference in a new issue