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

Тема в разделе "Свободное общение", создана пользователем ISMD, 16 апр 2006.

Статус темы:
Закрыта.
  1. ISMD

    ISMD Гость

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

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

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

    Код (Text):

    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/]
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей