SWAP Implementieren Forth in

Question

ich sah, dass in einem interview with Chuck Moore, sagt er:

Die Worte, die diesen Stapel sind DUP, DROP und über einen Zeitraum manipulieren. Es gibt keine, gut SWAP ist sehr praktisch, und Sie wollen es, aber es ist nicht eine Maschinenanweisung.

Also habe ich versuchte SWAP in Bezug auf nur DUP, DROP und OVER zu implementieren, kann aber nicht herausfinden, wie es zu tun, ohne den Stapel zumindest zu erhöhen.

Wie ist das wirklich gemacht?

Answer 1

Sie haben Recht, es scheint hart oder unmöglich mit nur dup, fallen, und vorbei.

Ich würde die i21 erraten wahrscheinlich auch eine Art Return-Stack Manipulation hat, so dass dies funktionieren würde:

: swap over 2>r drop 2r> ; 

Edit: Auf der GA144, die auch nicht über eine native Swap hat, es implementiert ist als:

over push over or or pop 

Pushpop und an den Rückkehrstapel beziehen, ist tatsächlich or xor. Siehe http://www.colorforth.com/inst.htm

Answer 2

Im Standard-Forth ist

: swap (a b -- b a) >r >r 2r> ; 

oder

: swap (a b -- b a) 0 rot nip ; 

oder

: swap (a b -- b a) 0 rot + ; 

oder

: swap (a b -- b a) 0 rot or ;