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/
;