Вопрос по задачам (Рекурсия)

[DimasikP]

Вообщем, я пока слабый программист, 1 курс. Нужна помощь в 2 задачах.

3. Алгоритм вычисления значения функции F(n), где n – натуральное число, задан следующими соотношениями:
F(1) = 1, F(2) = 1
F(n) = F(n-2)*(n-1) + 2, при n > 2
Написать рекурсивную функцию для вычисления F(8).


4. Алгоритм вычисления значения функции F(w), где w - натуральное число, задан следующими соотношениями:
F(1) = 3; F(2) = 3;
F(w) = 5*F(w-l)- 4*F(w-2) при w > 2.
Написать рекурсивную функцию для вычисления F(15).

[Stilet]

Ну что ж. Задача есть. Теперь покажи наработки и попытки )

[rrrFer]

f(1, 1):-!.
f(2, 1):-!.
f(N, F):-
  N > 2, !.
  N2 is N - 2, N1 is N - 1,
  f(N2, F2), f(N1, F1),
  F is F2 * F1 + 2.

f(1, 3):-!.
f(2, 3):-!.
f(W, F):-
  W > 2, !,
  W1 is W - 1, W2 is W - 2,
  f(W1, F1), f(W2, F2),
  F is 5*F1 - 4*F2.

На SWI/GNU Prolog

[Bugrimov]

rrrFer первокурсник Prolog не увидит курса до 4 наверно... Скорее уместен вопрос, а на каком языке нужен код?

[rrrFer]

Bugrimov

rrrFer первокурсник Prolog не увидит курса до 4 наверно.

Ну окей, вот на Пифагоре (https://ru.wikipedia.org/wiki/%D0%9F...D0%BE%D0%B2%D0

%B0%D0%BD%D0%B8%D1%8F%29)

F << funcdef X {
  ((X, 1) : [<, =, >]):? ^ (
		"error", 1,
		{
			((X, 2) : [=, >]):? ^ (
				1, 
				{
					(((X, 2):-:F, (X, 1):-:F):*, 2):+
				}
			):.
		}
	):.>> return;
}

Накидал схематично, не проверял. Явно решение кривое - в языке есть всякие параллеьные и асинхронные штуки - мне кажется что правильное решение на этом языке должно выглядеть так, что создается матрица из X и списка (1, 2), матрица транспонируется, к строкам применяется оператор сравнение и результат эротично передается для выбора нужного задержанного списка.
Первая часть выполняется параллельно, а сам код запихнут в задержанный список, поэтому выполняется лениво. Ну или типа того.