6 lines
162 B
Forth
6 lines
162 B
Forth
|
( xt from :noname in the previous example )
|
||
|
|
variable pocket pocket !
|
||
|
|
: fib ( +n -- n' )
|
||
|
|
dup 0< abort" Negative numbers don't exist."
|
||
|
|
[ pocket @ compile, ] ;
|