24 lines
563 B
Text
24 lines
563 B
Text
|
This is a word to bury a value by moving it to the bottom
|
||
|
|
of the stack.
|
||
|
|
|
||
|
|
It does this in a quick and dirty way: copy the values other
|
||
|
|
than TOS into a new array, then copy the values from the
|
||
|
|
array back to the stack. This is slow, but it's not something
|
||
|
|
that I've ever needed in actual use, so I see no reason to
|
||
|
|
devote time to finding a faster solution.
|
||
|
|
|
||
|
|
~~~
|
||
|
|
:bury (...n-n...)
|
||
|
|
&Heap [ here [ [ depth dup , [ , ] times ] dip ] dip
|
||
|
|
a:reverse [ ] a:for-each ] v:preserve ;
|
||
|
|
~~~
|
||
|
|
|
||
|
|
Test Case:
|
||
|
|
|
||
|
|
```
|
||
|
|
#12 #23 #34 #45 #56
|
||
|
|
dump-stack nl
|
||
|
|
bury
|
||
|
|
nl dump-stack nl
|
||
|
|
```
|