Палитра Каллисто: различия между версиями

Материал из ПМК вики
Перейти к навигации Перейти к поиску
Нет описания правки
Строка 18: Строка 18:
== Арифметика ==
== Арифметика ==
  : under+  ( a b c -- a+c b )  rot  +  ↔ ;
  : under+  ( a b c -- a+c b )  rot  +  ↔ ;
 
: within  ( n lo hi+1 -- ? )
      >r  1- over <  ↔ r>  < and ;


== Работа со [[Словарь|словарём]] ==
== Работа со [[Словарь|словарём]] ==

Версия от 22:12, 11 сентября 2015

Следующие слова не включены в ядро Каллисто, но при необходимости могут быть добавлены программистом в свой исходный код:


Константы

0 Constant false
-1 Constant true


Определяющие слова

: Array   ( #cells -- )  <Builds 2× allot
    DOES> ( i -- ’cell)   ↔ 2× + ;


Манипуляции со стеком

: -rot  ( a b c -- c a b )   rot rot ;


Арифметика

: under+  ( a b c -- a+c b )   rot  +  ↔ ;
: within  ( n lo hi+1 -- ? )
     >r  1- over <  ↔ r>  < and ;

Работа со словарём

: >body  ( CFA -- PFA )  2+ ;


Ввод-вывод

Вывод строк, завершающихся нулевым символом:

: typez   ( a -- )   BEGIN ↑ c@  ↑ WHILE emit 1+ REPEAT   2drop ;