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

Пример для версий APS APLAN

В языке не предусмотрены операции работы со строками, а команды вывода на печать обязательно заканчивают выведенное переводом строки, поэтому форматирование не соблюдено — числа выводятся просто в столбик.

INCLUDE <include/std.ap>

NAMES fibonacci, print_fibonacci;

fibonacci := rs(x) (
    0 = 1,
    1 = 1,
    x = fibonacci(x - 1) + fibonacci(x - 2)
);

print_fibonacci := proc(n)loc(i, res)(
    i := 0;
    while(i < n,
        prn fibonacci(i);
        i := i + 1
    )
);

task := print_fibonacci 16 ;

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

Комментарии