mirror of
https://git.sr.ht/~crc_/retroforth
synced 2024-11-16 19:48:56 +01:00
23 lines
563 B
Text
23 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
|
|
```
|