Mein Stack läuft dauernd über

[Dax]

Die eigentliche Funktion sieht so aus:

Delphi-Quellcode:

procedure run;
begin 
  if x = 0 then result := y + 1 else 
  if (x <> 0) and (y = 0) then result := run(x - 1, 1) else 
      result := run(x - 1, run(x, y-1)); 
end;