Числа Фибоначчи в POP-11

Пример для версий Poplog 15.5 (POP-11)

Используется рекурсивное определение чисел Фибоначчи. Пример работает так же, как факториал, но loop возвращает строку, содержащую конкатенацию всех чисел Фибоначчи до n-ого включительно.

define fibonacci(n);
    if n < 3 
        then 1
        else fibonacci(n - 1) + fibonacci(n - 2)
    endif
enddefine;

define loop(n);
    if n>1 
        then loop(n-1) >< ', ' >< fibonacci(n)
        else fibonacci(n)
    endif;
enddefine;

loop(16) >< ', ...' =>

Числа Фибоначчи в POP-11

Комментарии