Составить программу, используя рекурсивные вызовы. Пусть n и m - целые неотрицательные...

Question

Составить программу, используя рекурсивные вызовы.
Пусть n и m - целые неотрицательные числа. Написать рекурсивную
программу, вычисляющую классическую в теории рекурсии функцию Аккермана:

---

Comments

Опачки... наконец-то прибыл Аккерман))) Теперь я точно знаю, что это не задания школьника.

---

Хотя программируется Аккерман без проблем... вот когда мне приходилось его программировать БЕЗ РЕКУРСИИ - это было еще то занятие...

Answer 1

// PascalABC.NET 3.0, сборка 1076
function ak(n,m:integer):longint;
begin
  if n=0 then ak:=m+1
  else
    if m=0 then ak:=ak(n-1,1)
    else ak:=ak(n-1,ak(n,m-1))
end;

begin
  Writeln('A(3,3)=',ak(3,3))
end.

Тестовое решение:
A(3,3)=61

А(4,1) - вызывает аварийное завершение программы по переполнению стека из-за большой глубины рекурсии.

Comments

Блин, оказывается, что это легко было сделать, спасибо большое!

---

Вся рекурсия легко программируется