5 lines
147 B
Text
5 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 ;
|