Atlast - как Forth, но лучше

[vak]

Atlast это по сути удачная реализация языка Форт для юникса. Возник проект как часть продукта Autodesk, и изначально расшифровывался как Autodesk Threaded Language Application System Toolkit. Нынче оперсорс.

Исходники на Гитхабе: github.com/Fourmilab/atlast

Там фактически две отдельные реализации: одна для 32-битных компьютеров, другая для 64-битных. Поддерживаются плавающая точка, Си-шные строки, юниксный доступ к файлам.

Документация для 32-битной версии: atlast.html

Для 64-битной версии: atlast2.html

Пример программы: вычисление числа пи по алгоритму Тамура-Канада.

variable a
variable b
variable c
variable y

: tamura-kanada ( n -- fpi )
    1.0 a !
    1.0 2.0 sqrt f/ b !
    0.25 c !
    1.0
    swap 1 do
        a @ dup y !
        b @ f+ 2.0 f/ a !
        b @ y @ f* sqrt b !
        c @ over a @ y @ f-
        dup f* f* f- c ! 2.0 f*
    loop
    drop
    a @ b @ f+ dup f* 4.0 c @ f* f/
;

Comments

[juan_gandhi]

Мило. Жив язык!

[vak]

Дело было 35 лет назад… Не то чтобы жив, но хорошо сохранился. 😀

[ufm]

Не может быть язык "как Форт только лучше". Потому что Форт это метаязык. Из привидённого исходника программы я не вижу ничего такого, что нельзя было-бы реализовать на Форте.