Функция Аккермана

  • Автор темы ISMD
  • Дата начала
Статус
Закрыто для дальнейших ответов.
I

ISMD

#1
Нужны два варианта решения: рекурсивный и итерационный.

1. Рекусия уже написана но очень быстро переполняется стек. Подкиньте идею оптимизации.

2. Нужно решение итерационное с помощью имитации стека массивом записей.

Код:
function Acc(n,m : word): word;
begin
if (n=0) then Acc:=m+1 else
begin
if (n<>0)and(m=0) then Acc:=Acc(n-1,1);
if (n<>0)and(m<>0) then Acc:=Acc(n-1,Acc(n,m-1));
end;
[CODE/]
 
Статус
Закрыто для дальнейших ответов.