Редактирование: 2DUP
Перейти к навигации
Перейти к поиску
Правка может быть отменена. Пожалуйста, просмотрите сравнение версий ниже, чтобы убедиться, что это нужная вам правка, и запишите страницу ниже, чтобы отменить правку.
Текущая версия | Ваш текст | ||
Строка 38: | Строка 38: | ||
</pre> | </pre> | ||
Красиво это можно записать так: | Красиво это можно записать так: | ||
: 2DUP ( | : 2DUP ( a b -- a b a b) OVER OVER ; | ||
Реализация из SP-Forth 4.20: | Реализация из SP-Forth 4.20: |