История изменений
Исправление MOPKOBKA, (текущая версия) :
Интерпретатор пишется за несколько дней.
Можно за один написать Forth на ассемблере в 500 строк, на высокоуровневом языке наверное еще быстрее выйдет.
Фибоначи
: fib for dup rot + dup . next ;
0 1 10 fib
1 2 3 5 8 13 21 34 55 89 ok
Факториал
: fac 1 swap for i * next . ;
17 fac
355687428096000 ok
Исправление MOPKOBKA, :
Интерпретатор пишется за несколько дней.
Можно за один написать Forth на ассемблере в 500 строк, на высокоуровневом языке наверное еще быстрее выйдет.
: fib for dup rot + dup . next ;
0 1 10 fib
1 2 3 5 8 13 21 34 55 89 ok
: fac 1 swap for i * next . ;
17 fac
355687428096000 ok
Исправление MOPKOBKA, :
Интерпретатор пишется за несколько дней.
Можно за один написать Forth на ассемблере в 500 строк, на высокоуровневом языке наверное еще быстрее выйдет.
: fib for dup rot + dup . next ;
0 1 10 fib
1 2 3 5 8 13 21 34 55 89 ok
Исправление MOPKOBKA, :
Интерпретатор пишется за несколько дней.
Можно за один написать Forth на ассемблере в 500 строк, на высокоуровневом языке наверное еще быстрее выйдет.
: fib for dup rot + dup . next ;
? 0 1 10 fib
1 2 3 5 8 13 21 34 55 89 ok
Исходная версия MOPKOBKA, :
Интерпретатор пишется за несколько дней.
Можно за один написать Forth на ассемблере в 500 строк, на высокоуровневом языке наверное еще быстрее выйдет.
: fib for dup rot + dup . next drop2 ;
? 0 1 10 fib
1 2 3 5 8 13 21 34 55 89 ok