forth - 在 Forth 中实现 SWAP

Question

我在 interview with Chuck Moore 中看到了， 他说:

The words that manipulate that stack are DUP, DROP and OVER period. There's no, well SWAP is very convenient and you want it, but it isn't a machine instruction.

所以我尝试实现 SWAP仅就 DUP而言, DROP和 OVER ，但无法弄清楚如何做到这一点，至少不增加堆栈。

是怎么做到的，真的吗？

Answer 1

你是对的，只是 dup、drop 和 over 似乎很难或不可能。

我猜 i21 可能也有某种返回堆栈操作，所以这会起作用:

: swap   over 2>r drop 2r> ;

编辑:在 GA144 上，它也没有本地交换，它实现为:

over push over or or pop

Push和 pop引用返回栈， or实际上是异或。见 http://www.colorforth.com/inst.htm