2DUP
2DUP (два-дублировать) — стандартное слово Каллисто.
Дублирует верхнюю пару чисел в стеке.
2DUP в стандарте ANS Forth
6.1.0380 2DUP "two-dupe" CORE ( x1 x2 -- x1 x2 x1 x2 ) Дублирует пару-ячеек x1 x2.
2DUP в предыдущем стандарте Forth-83 (англ.)
2DUP 32b -- 32b 32b 79 "two-dupe" Duplicate 32b.
2DUP в стандарте Forth-79 (англ.)
2DUP d -- d d "two-dupe" Duplicate the top double number on the stack.
Заметки
В Каллисто 2DUP реализован, как примитив. Но при необходимости 2DUP можно легко выразить через OVER:
: 2DUP ( n1 n2 -- n1 n2 n1 n2) OVER OVER ;
Ссылки
- Слово 2DUP (two-dupe) в стандарте ANS Forth (англ.)
- Слово 2DUP (two-dupe) в черновике Forth 200x (англ.)
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |