Как преобразовать рекурсивную функцию дерева (или алгоритм) в цикл?

Question

Я написал рекурсивную функцию дерева на паскале (или delphi), но у меня появилось сообщение «Недостаточно памяти», когда я ее запустил.Мне нужно превратить рекурсивную функцию Calculate в этом коде в нерекурсивную функцию. Скажите, пожалуйста, как:

program testing(input,output);
type
  ptr = ^tr;
  tr = record
    age:byte;
    left,right:ptr;
  end; 
var
  topper:ptr;
  total,day:longint;
procedure mycreate(var t:ptr);
var temp:ptr;
begin
  new(temp);
  temp^.age:=1;
  temp^.left:=nil;
  temp^.right:=nil;
  t:=temp;
end;
procedure gooneday(var t:ptr);
begin
  if t^.age<>5 then
    begin
      if t^.age=2 then
        mycreate(t^.left)
      else if t^.age=3 then
        mycreate(t^.right);
      t^.age:=t^.age+1;
      total:=total+1;
    end;
end;

procedure calculate(var crnt:ptr);
begin
  if crnt<>nil then
    begin
      gooneday(crnt);
      calculate(crnt^.left);
      calculate(crnt^.right);
    end;
end;

begin
  total:=0;
  mycreate(topper);
  day:=0;
  while total<1000000000000 do
    begin
      total:=0;
      day:=day+1;
      calculate(topper);
    end;
  writeln(day);
  writeln(total);
end.

Answer 1

Рекурсивные функции используют стек для сохранения состояния рекурсии.

При преобразовании в цикл вы должны создать явный стек. Вы должны выталкивать и выталкивать элементы из стека внутри цикла.

Answer 2

Вы можете пройти по дереву в постоянном пространстве.Вы могли видеть на это обсуждение .