Редактирование: ⟨
Перейти к навигации
Перейти к поиску
Правка может быть отменена. Пожалуйста, просмотрите сравнение версий ниже, чтобы убедиться, что это нужная вам правка, и запишите страницу ниже, чтобы отменить правку.
Текущая версия | Ваш текст | ||
Строка 1: | Строка 1: | ||
'''<''' (меньше) — стандартное слово [[Каллисто]]. | '''<''' (меньше) — стандартное слово [[Каллисто]]. | ||
== Ввод слова < == | == Ввод слова < == | ||
В [[Режим NUM|режиме NUM]] последовательно нажмите две клавиши [[Клавиша F|{{Оранжевая клавиша|F}}]] {{ШГ→}} | В [[Режим NUM|режиме NUM]] последовательно нажмите две клавиши [[Клавиша F|{{Оранжевая клавиша|F}}]] [[Клавиша ШГ вправо|{{Чёрная клавиша|ШГ→}}]] | ||
== | == < в стандарте ANS Forth == | ||
6.1.0480 < "less-than" CORE | 6.1.0480 < "less-than" CORE | ||
( n1 n2 -- flag ) | ( n1 n2 -- flag ) | ||
Строка 12: | Строка 11: | ||
См.: 6.1.2340 U<. | См.: 6.1.2340 U<. | ||
== F< в стандарте ANS Forth == | |||
12.6.1.1460 F< "f-less-than" FLOATING | 12.6.1.1460 F< "f-less-than" FLOATING | ||
( -- flag ) ( F: r1 r2 -- ) or ( r1 r2 -- flag ) | ( -- flag ) ( F: r1 r2 -- ) or ( r1 r2 -- flag ) | ||
flag - true, если и только если r1 - меньше чем r2. | flag - true, если и только если r1 - меньше чем r2. | ||
== < в предыдущем стандарте Forth-83 (англ.) == | |||
< n1 n2 -- flag 83 "less-than" | < n1 n2 -- flag 83 "less-than" | ||
flag is true if n1 is less than n2. | flag is true if n1 is less than n2. | ||
Строка 30: | Строка 22: | ||
-32768 0 < must return true. | -32768 0 < must return true. | ||
== < в стандарте Forth-79 (англ.) == | |||
< n1 n2 -- flag 139 "less-than" | < n1 n2 -- flag 139 "less-than" | ||
True if n1 is less than n2. | True if n1 is less than n2. | ||
Строка 37: | Строка 28: | ||
-32768 32767 < must return true. | -32768 32767 < must return true. | ||
-32768 0 < must be distinguished. | -32768 0 < must be distinguished. | ||
== < в fig-FORTH Release 1 glossary, май 1979 (англ.) == | |||
< n1 n2 --- f L0 | < n1 n2 --- f L0 | ||
Leave a true flag if n1 is less than n2; otherwise leave a false | Leave a true flag if n1 is less than n2; otherwise leave a false | ||
flag. | flag. | ||
== История == | |||
Слово < является одним из самых древних в Форте. | |||
Оно появилось в программе CURVE, написанной Чак Муром на Алголе для Burroughs B5500 в 1964 году ([https://ru.wikipedia.org/wiki/%D0%9D%D0%B0%D1%86%D0%B8%D0%BE%D0%BD%D0%B0%D0%BB%D1%8C%D0%BD%D0%B0%D1%8F_%D1%83%D1%81%D0%BA%D0%BE%D1%80%D0%B8%D1%82%D0%B5%D0%BB%D1%8C%D0%BD%D0%B0%D1%8F_%D0%BB%D0%B0%D0%B1%D0%BE%D1%80%D0%B0%D1%82%D0%BE%D1%80%D0%B8%D1%8F_SLAC Национальная ускорительная лаборатория SLAC], [https://ru.wikipedia.org/wiki/%D0%A1%D1%82%D1%8D%D0%BD%D1%84%D0%BE%D1%80%D0%B4%D1%81%D0%BA%D0%B8%D0%B9_%D1%83%D0%BD%D0%B8%D0%B2%D0%B5%D1%80%D1%81%D0%B8%D1%82%D0%B5%D1%82 Стэнфордский университет]). | |||
Вместе со словом < появилось соглашение оставлять значение истинности на стеке, 1 для «истина» и 0 для «ложь». | |||
== Реализация == | == Реализация == | ||
У Баранова-Ноздрунова приводится следующее описание слова < (стр. 26): | У Баранова-Ноздрунова приводится следующее описание слова < (стр. 26): | ||
: < ( A,B ---> A < B ) - 0< ; | : < ( A,B ---> A < B ) - 0< ; | ||
Строка 98: | Строка 53: | ||
: < ( N1,N2->F) - 0< ; | : < ( N1,N2->F) - 0< ; | ||
</PRE> | </PRE> | ||
== Ссылки == | == Ссылки == | ||
* См. слова [[0⟨|0<]], [[Слово =|=]] и [[Слово ⟩|>]] | |||
* См. слова [[0⟨|0<]], [[Слово =|=]] и [[⟩|>]] | |||
* См. также [[Символ с кодом 60|символ <]] | * См. также [[Символ с кодом 60|символ <]] | ||
* Слова [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.0480 < (less-than)] и [http://forth.sourceforge.net/standard/dpans/dpans12.htm#12.6.1.1460 F< (f-less-than)] в стандарте ANS Forth ''(англ.)'' | * Слова [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.0480 < (less-than)] и [http://forth.sourceforge.net/standard/dpans/dpans12.htm#12.6.1.1460 F< (f-less-than)] в стандарте ANS Forth ''(англ.)'' | ||
* Слова [http:// | * Слова [http://www.forth200x.org/documents/html3/core/less.html < (less-than)] и [http://www.forth200x.org/documents/html3/floating/Fless.html F< (f-less-than)] в черновике Forth 200x ''(англ.)'' | ||
* [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH\04.%20KOMPJUTER%20%22PRINIMAET%20RESENIA%22 КОМПЬЮТЕР "ПРИНИМАЕТ РЕШЕНИЯ"] в книге [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH Л.Броуди «Начальный курс программирования на языке Форт»] | * [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH\04.%20KOMPJUTER%20%22PRINIMAET%20RESENIA%22 КОМПЬЮТЕР "ПРИНИМАЕТ РЕШЕНИЯ"] в книге [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH Л.Броуди «Начальный курс программирования на языке Форт»] | ||
* [http://www.forth.com/starting-forth/sf4/sf4.html Decisions, Decisions…] в книге [http://www.forth.com/starting-forth/ Leo Brodie Starting Forth] ''(англ.)'' | * [http://www.forth.com/starting-forth/sf4/sf4.html Decisions, Decisions…] в книге [http://www.forth.com/starting-forth/ Leo Brodie Starting Forth] ''(англ.)'' | ||
Строка 142: | Строка 69: | ||
[[Категория:Примитивы]] | [[Категория:Примитивы]] | ||
[[Категория:Операции сравнения Каллисто]] | [[Категория:Операции сравнения Каллисто]] | ||
[[Категория: | [[Категория:Слова Каллисто без стековых диаграмм]] | ||