MIN

Пример работы слова MIN

MIN (минимум) — стандартное слово Каллисто. Нахождение меньшего из двух чисел.

MIN            ( x1 x2 −− x3 )                      Нахождение меньшего из двух чисел. x3 := min (x1, x2)

Засылает в стек число x3, которое является наименьшим из двух чисел x1 и x2.

Ввод слова MIN

В режиме ЛАТ последовательно нажмите три белые клавиши  ÷   7   4 

Детали реализации

Слово является «обёрткой» вокруг команды ЭКВМ К max.

FMIN в стандарте ANS Forth

12.6.1.1565   FMIN                      "f-min"                        FLOATING
           ( F: r1 r2 -- r3 ) or ( r1 r2 -- r3 )
           r3 меньшее из r1 и r2.

MIN в стандарте ANS Forth

6.1.1880   MIN                                                             CORE
           ( n1 n2 -- n3 )
           n3 меньшее из n1 и n2.

MIN в предыдущем стандарте Forth-83 (англ.)

     MIN          n1 n2 -- n3                   79               "min"
          n3 is the lesser of n1 and n2 according to the operation of
          < .

MIN в стандарте Forth-79 (англ.)

MIN            n1 n2 -- n3                   127              "min"
    Leave the lesser of two numbers.

MIN в fig-FORTH Release 1 glossary, май 1979 (англ.)

MIN           n1  n2  ---  min                 L0
       Leave the smaller of two numbers.

Реализация

Слово MIN в ФОРТ-ЕС было примитивом. Вот его описание и определение:

MIN          N1,N2->N3 МЕНЬШЕЕ ИЗ ЧИСЕЛ N1 И N2                 22

                     Экран номер 22
( 31.03.86   FILL ERASE BLANK COMPILE [ ] MIN MAX HEX DECIMAL)

CODE MIN   ( N1,N2->N3 )  14 LHRW12 BAL, RW1 RW2 CR,
   POP BNH,   RW1 RW2 LR,  POPPUT1 B,  END-CODE

В FORTH ИТЭФ слово MIN также было примитивом, вот его определение:

            HEAD     203Q,'MI',316Q,MIN                   ; MIN
            POP  AX
            POP  CX
            CMP  CX,  AX
            JL  DEEP
   TOP:     PUSH AX
            NEXT
   DEEP:    PUSH CX
            NEXT

Ссылки

• Исходный текст слова MIN в Каллисто Классик 1.0
• См. слово MAX
• Слова MIN и FMIN (f-min) в стандарте ANS Forth (англ.)
• Слова MIN и FMIN (f-min) в черновике Forth 200x (англ.)
• ОПЕРАЦИИ НАД ЦЕЛЫМИ ЧИСЛАМИ в книге Л.Броуди «Начальный курс программирования на языке Форт»
• The Philosophy of Fixed Point в книге Leo Brodie Starting Forth (англ.)

У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их.

Это заготовка статьи. Вы можете помочь проекту, дополнив её.