2DUP

2DUP (два-дублировать) — стандартное слово Каллисто. Продублировать пару чисел в стеке.

2DUP           ( x1 x2 -- x1 x2 x1 x2 )

Дублирует верхнюю пару ячеек x1 x2 в стеке.

Ввод слова 2DUP

В режиме NUM последовательно нажмите клавиши  2     Р-ГРД-Г   K   3   6 

Для возврата в режим NUM нажмите синюю клавишу  P .

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  ( x1 x2 -- x1 x2 x1 x2)  OVER OVER ;

История

2DUP — устоявшееся слово в Форте, название и поведение которого не менялось с 1979 года.

Ссылки

• См. слова ↑, 2DROP, 2SWAP
• Слово 2DUP (two-dupe) в стандарте ANS Forth (англ.)
• Слово 2DUP (two-dupe) в черновике Forth 200x (англ.)

У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их.

Это заготовка статьи. Вы можете помочь проекту, дополнив её.