4 lines
147 B
Text
4 lines
147 B
Text
: fib ( nth:ecx -- result:edi ) 1 0
|
|
: compute ( times:ecx accum:eax scratch:edi -- result:edi ) xadd latest loop ;
|
|
|
|
: example ( -- ) 11 fib drop ;
|