Size: a a a

2020 May 27

AP

Aleksei (astynax) Pi... in fprog_spb
a b c + swap == a c b
так что можно и порядок аргументов естественный поиметь
источник

VM

Vyacheslav Mikushev in fprog_spb
Vyacheslav Mikushev
: something-like-discriminant ( a c b — d ) >r over r> dup dup - * 4 * * - + 2 * / ;
: something-like-discriminant ( a c b — d ) >r over r> dup dup negate * 4 * * - + 2 * / ;
источник

VM

Vyacheslav Mikushev in fprog_spb
Vyacheslav Mikushev
: something-like-discriminant ( a c b — d ) >r over r> dup dup negate * 4 * * - + 2 * / ;
Не, фигня какая-то получилась.:)
источник

VM

Vyacheslav Mikushev in fprog_spb
Нужно еще подумать.
источник

PS

Peter Sovietov in fprog_spb
Vyacheslav Mikushev
Нужно еще подумать.
Есть много интерпретаторов Форта на JS, для онлайна :)
источник

PS

Peter Sovietov in fprog_spb
Кстати, я когда-то сделал такую штуку в помощь начинающим жонглерам на стеке :)
http://sovietov.com/app/forthwiz.html
источник

VM

Vyacheslav Mikushev in fprog_spb
Peter Sovietov
Есть много интерпретаторов Форта на JS, для онлайна :)
Один я сам написал.:)
источник

VM

Vyacheslav Mikushev in fprog_spb
Правда использовал стандарт 83-го года.:)
источник

A

Antonio in fprog_spb
Andrey
пoдлoвил
ты наверное хотел all 0 <= deltas ;)
источник

AI

Andrey Ivanov in fprog_spb
Написать интерпретатор Форта на порядок проще чем писать программы на нем )
источник

PS

Peter Sovietov in fprog_spb
Vyacheslav Mikushev
Один я сам написал.:)
Это нормально. Начинающий фортер обязательно должен написать свой Форт! А потом можно и поучиться даже писать какие-то программы :)
источник

VM

Vyacheslav Mikushev in fprog_spb
Andrey Ivanov
Написать интерпретатор Форта на порядок проще чем писать программы на нем )
😂
источник

PS

Peter Sovietov in fprog_spb
Andrey Ivanov
Написать интерпретатор Форта на порядок проще чем писать программы на нем )
Опередили :)
источник

A

Andrey in fprog_spb
Antonio
ты наверное хотел all 0 <= deltas ;)
да, так! давнo я не брал в руки Q
источник

AI

Andrey Ivanov in fprog_spb
это типа аналога в хаскеле
all (<=0) . zipWith (-) . l $ (tail l)

ну и где кривее и отвратительнее?
источник

A

Andrey in fprog_spb
zipWith и tail можно на scanl1 поменять
источник

A

Andrey in fprog_spb
тогда получится эквивалент по смыслу
источник

A

Andrey in fprog_spb
ну если мозг поврежден APL-подобными языками, то тогда тот вариант красивее. иначе - не знаю..
источник

A

Andrey in fprog_spb
в (<= a b c d) фигурируют a b c d
источник

A

Andrey in fprog_spb
Antonio
ты наверное хотел all 0 <= deltas ;)
^ тут их нет
источник