5 lines
162 B
Forth
5 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, ] ;
|