История изменений
Исправление MOPKOBKA, (текущая версия) :
и задумайся о следующих достаточно очевидных и таких простых шагах
Не считаю эти шаги простыми...
а отчего бы Sexpr лиспа и не описать PEG-грамматикой.
По мне так намного проще написать такие строки на Forth:
0 variable n : r+ r@> 1+ >r@ ;
: (: r+ >r@ 0 >r@ ; : ( ' literal ['] (: compile ; immediate
: ) r@> n ! n @ srev n @ 1- 1 max for n @ 1 > if swap then rdup r@> execute next rdrop ;
: print . ; : >literal, ['] r+ compile ;
: two-values 10 10 ;
( print ( - 2 3 ( + two-values ) ) )
Исходная версия MOPKOBKA, :
и задумайся о следующих достаточно очевидных и таких простых шагах
Не считаю эти шаги простыми...
а отчего бы Sexpr лиспа и не описать PEG-грамматикой.
По мне так намного проще написать такие строки на Forth:
0 variable n : r+ r@> 1+ >r@ ;
: (: r+ >r@ 0 >r@ ; : ( ' literal ['] (: compile ; immediate
: ) r@> n ! n @ srev n @ 1- 1 max for n @ 1 > if swap then rdup r@> execute next rdrop ;
: print . ; : >literal, ['] r+ compile ;
: two-values 10 10 ;
( print ( - 2 3 ( + two-values ) ) )