⟨
< (меньше) — стандартное слово Каллисто.
< ( x1 x2 −− f ) Меньше. f равно −1 если и только если x1 меньше, чем x2.
Ввод слова <
В режиме NUM последовательно нажмите две клавиши F ШГ→
< и F< в стандарте ANS Forth
6.1.0480 < "less-than" CORE ( n1 n2 -- flag ) flag - true, если и только если n1 - меньше чем n2.
См.: 6.1.2340 U<.
12.6.1.1460 F< "f-less-than" FLOATING ( -- flag ) ( F: r1 r2 -- ) or ( r1 r2 -- flag ) flag - true, если и только если r1 - меньше чем r2.
История
Слово < является одним из самых древних в Форте.
Оно появилось в программе CURVE, написанной Чак Муром на Алголе для Burroughs B5500 в 1964 году (Национальная ускорительная лаборатория SLAC, Стэнфордский университет).
Вместе со словом < появилось соглашение оставлять значение истинности на стеке, 1 для «истина» и 0 для «ложь».
< в предыдущем стандарте Forth-83 (англ.)
< n1 n2 -- flag 83 "less-than" flag is true if n1 is less than n2. -32678 32767 < must return true. -32768 0 < must return true.
< в стандарте Forth-79 (англ.)
< n1 n2 -- flag 139 "less-than" True if n1 is less than n2. -32768 32767 < must return true. -32768 0 < must be distinguished.
< в fig-FORTH Release 1 glossary, май 1979 (англ.)
< n1 n2 --- f L0 Leave a true flag if n1 is less than n2; otherwise leave a false flag.
Реализация
У Баранова-Ноздрунова приводится следующее описание слова < (стр. 26):
: < ( A,B ---> A < B ) - 0< ;
Описание и определение слова < в ядре ФОРТ-ЕС:
< N1,N2->F F НЕ НУЛЬ, ЕСЛИ N1 МЕНЬШЕ N2 49 Экран номер 19 ( 31.03.86 CPАBHEHИЯ И РАЗРЕШЕНИЯ В ШИТОМ КОДЕ) : < ( N1,N2->F) - 0< ;
В FORTH ИТЭФ слово < тоже было примитивом, вот его определение:
HEAD 201Q,,274Q,LESS ; < POP AX POP CX CMP AX, CX JG TRUE JMP FALSE
Метки TRUE и FALSE см. в определении слова 0=
Ссылки
- Исходный текст слова < в Каллисто Классик 1.0
- См. слова 0<, = и >
- См. также символ <
- Слова < (less-than) и F< (f-less-than) в стандарте ANS Forth (англ.)
- Слова < (less-than) и F< (f-less-than) в черновике Forth 200x (англ.)
- КОМПЬЮТЕР "ПРИНИМАЕТ РЕШЕНИЯ" в книге Л.Броуди «Начальный курс программирования на языке Форт»
- Decisions, Decisions… в книге Leo Brodie Starting Forth (англ.)
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |