Числа Фибоначчи в Forth

Пример для версий gforth 0.7.0

Используется рекурсивное определение чисел Фибоначчи.

: fib-rec
  dup 2 u< if exit then
  1- dup recurse  swap 1- recurse  + ;
 
: lp
  1 do
    i dup fib-rec . ." , "
  loop drop ;
 
17 lp
." ..."

Комментарии