Редактирование: COUNT
Перейти к навигации
Перейти к поиску
Правка может быть отменена. Пожалуйста, просмотрите сравнение версий ниже, чтобы убедиться, что это нужная вам правка, и запишите страницу ниже, чтобы отменить правку.
Текущая версия | Ваш текст | ||
Строка 1: | Строка 1: | ||
'''COUNT''' (подсчёт, счётчик) — стандартное слово [[Каллисто]]. | '''COUNT''' (подсчёт, счётчик) — стандартное слово [[Каллисто]]. | ||
COUNT ( a -- a1 | COUNT ( a -- a1 u ) Подсчёт. Даёт адрес a1 и длину u строки со счётчиком a. | ||
[[Файл:address.gif|thumb|right|285px|[[Стек данных|Стек]] до работы COUNT<br>Картинка из книги Лео Броди «Starting FORTH»]] | [[Файл:address.gif|thumb|right|285px|[[Стек данных|Стек]] до работы COUNT<br>Картинка из книги Лео Броди «Starting FORTH»]] | ||
[[Файл:addressp1.gif|thumb|right|287px|[[Стек данных|Стек]] после работы COUNT<br>Картинка из книги Лео Броди «Starting FORTH»]] | [[Файл:addressp1.gif|thumb|right|287px|[[Стек данных|Стек]] после работы COUNT<br>Картинка из книги Лео Броди «Starting FORTH»]] | ||
Строка 16: | Строка 16: | ||
символах строки в c-addr2. | символах строки в c-addr2. | ||
== COUNT в предыдущем стандарте Forth-83 (англ.) == | |||
COUNT addr1 -- addr2 +n 79 | COUNT addr1 -- addr2 +n 79 | ||
addr2 is addr1+1 and +n is the length of the counted string | addr2 is addr1+1 and +n is the length of the counted string | ||
Строка 23: | Строка 22: | ||
Range of +n is {0.255} See: "string, counted" | Range of +n is {0.255} See: "string, counted" | ||
== COUNT в стандарте Forth-79 (англ.) == | |||
COUNT addr -- addr+1 n 159 | COUNT addr -- addr+1 n 159 | ||
Leave the address addr+1 and the character count of text | Leave the address addr+1 and the character count of text | ||
Строка 29: | Строка 28: | ||
character count n. Range of n is {0..255}. | character count n. Range of n is {0..255}. | ||
== COUNT в fig-FORTH Release 1 glossary, май 1979 (англ.) == | |||
COUNT addr1 --- addr2 n L0 | COUNT addr1 --- addr2 n L0 | ||
Leave the byte address addr2 and byte count n of a message text | Leave the byte address addr2 and byte count n of a message text | ||
Строка 38: | Строка 37: | ||
== Реализация == | == Реализация == | ||
Юрий Семёнов приводит следующее определение слова COUNT (стр. 36): | Юрий Семёнов приводит следующее определение слова COUNT (стр. 36): | ||
: COUNT ( a -- a+1 # ) ↑ 1+ ↔ C@ ; | : COUNT ( a -- a+1 # ) ↑ 1+ ↔ C@ ; | ||
Строка 82: | Строка 57: | ||
== Ссылки == | == Ссылки == | ||
* Слово [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.0980 COUNT] в стандарте ANS Forth ''(англ.)'' | * Слово [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.0980 COUNT] в стандарте ANS Forth ''(англ.)'' | ||
* Слово [http:// | * Слово [http://www.forth200x.org/documents/html3/core/COUNT.html COUNT] в черновике Forth 200x ''(англ.)'' | ||
* [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH\10.WWOD-WYWOD ВВОД-ВЫВОД] в книге [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\10.WWOD-WYWOD ВВОД-ВЫВОД] в книге [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH Л.Броуди «Начальный курс программирования на языке Форт»] | ||
* [http://www.forth.com/starting-forth/sf10/sf10.html I/O and You] в книге [http://www.forth.com/starting-forth/ Leo Brodie Starting Forth] ''(англ.)'' | * [http://www.forth.com/starting-forth/sf10/sf10.html I/O and You] в книге [http://www.forth.com/starting-forth/ Leo Brodie Starting Forth] ''(англ.)'' | ||
Строка 93: | Строка 67: | ||
[[Категория:Слова Каллисто]] | [[Категория:Слова Каллисто]] | ||
[[Категория:Слова высокого уровня]] | [[Категория:Слова высокого уровня]] | ||