Рекурсия: найти n-ое число Фибоначчи второго порядка - Prolog
Формулировка задачи:
Составить программу вычисления un для данного неотрицательного целого n.
Числа Фибоначчи второго порядка u0, u1, u2,… определяются следующим образом
система:U0=1 U1=1 U2=3
Un=Un-1+Un-2+Un-3
Решение задачи: «Рекурсия: найти n-ое число Фибоначчи второго порядка»
textual
Листинг программы
domains int=integer predicates fib(int,int,int,int,int) clauses fib(PP,_,_,1,PP) :- !. fib(_,P,_,1,P) :- !. fib(_,_,C,3,C) :- !. fib(PP,P,C,N,Q) :- N1=N-1, CC=PP+P+C, fib(P,C,CC,N1,Q).