ati/debug/fibonacci.algo.m4
2023-02-09 19:25:48 +01:00

29 lines
470 B
Plaintext

" 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