+fibonacci algo

This commit is contained in:
anon 2023-02-09 19:25:48 +01:00
parent e16d87177e
commit ac35005c89
2 changed files with 56 additions and 0 deletions

28
debug/fibonacci.algo Normal file
View File

@ -0,0 +1,28 @@
" Fibocci
0;fibonacci;=;4;0;0
1;20;0;0;0;0
" Fibocci call
3;8;0;n;=;0
0;ret;=;0;0;0
1;return;0;0;0
3;11;0;n;=;1
0;ret;=;1;0;0
1;return;0;0;0
0;n;=;n;-;1
1;fibonacci;1;0;0;0
0;n;=;n;+;1
0;buf-n;=;ret;0;0
0;n;=;n;-;2
1;fibonacci;1;0;0;0
0;n;=;n;+;2
0;ret;=;buf-n;+;ret
1;return;0;0;0
" Call
0;n;=;0;0;0
1;fibonacci;1;0;0;0
0;f-n;=;ret;0;0;0
0;n;=;n;+;1
3;22;0;n;=;10
1;return;0;0;0
" 0 1 1 2 3
" 5 8 13 21 34

28
debug/fibonacci.algo.m4 Normal file
View File

@ -0,0 +1,28 @@
" Fibocci
0;fibonacci;=;eval(__line__+2);0;0
1;20;0;0;0;0
" Fibocci call
3;eval(__line__+3);0;n;=;0
0;ret;=;0;0;0
1;return;0;0;0
3;eval(__line__+3);0;n;=;1
0;ret;=;1;0;0
1;return;0;0;0
0;n;=;n;-;1
1;fibonacci;1;0;0;0
0;n;=;n;+;1
0;buf-n;=;ret;0;0
0;n;=;n;-;2
1;fibonacci;1;0;0;0
0;n;=;n;+;2
0;ret;=;buf-n;+;ret
1;return;0;0;0
" Call
0;n;=;0;0;0
1;fibonacci;1;0;0;0
0;f-n;=;ret;0;0;0
0;n;=;n;+;1
3;eval(__line__-3);0;n;=;10
1;return;0;0;0
" 0 1 1 2 3
" 5 8 13 21 34