1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

class _{static long _
(long __,long  ___) {
return __==0 ?___+ 1:
___==0?_(__-1,1):_(__
-1,_(__, ___-1)) ;  }
static  {int _=2 ,___
= 2;System.out.print(
"a("+_+','+___+ ")="+
_ (_,  ___) ) ;System
.exit(1);}}					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

static void Main(string[] args)
{
  int var1 = 2;
  int var2 = 2;
  Console.WriteLine("method(" + var1 + ',' + var2 + ") = " + method(var1,  var2) ) ;
}
static long method(long arg1,long  arg2)
{
  return arg1 == 0 ? arg2 + 1 : arg2 == 0 ? method(arg1 - 1, 1) : method(arg1 - 1, method(arg1, arg2 - 1));
}					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

static long method(long arg1, long arg2)
{
    long result;

    if (arg1 == 0)
    {
        result = arg2 + 1;
    }
    else if (arg2 == 0)
    {
        result = method(arg1 - 1, 1);
    }
    else
    {
        result = method(arg1 - 1, method(arg1, arg2 - 1));
    }

    return result;
}					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function ackermann(n, m: Integer): Integer;
begin
  if n = 0 then
    result := m + 1
  else
  if m = 0 then
    result := ackermann(n - 1, 1)
  else
    result := ackermann(n - 1, ackermann(n, m - 1));
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

Function IconAckermann (i, j: Integer): Integer;
Var
  Value,
  Place : Array Of Integer;
  k : Integer;

Begin
  If i = 0 Then
    Result := j + 1
  Else Begin
    setLength(Value, i + 2);
    SetLength(Place, i + 2);
    Value[1] := 1;
    Place[1] := 0;
    Repeat
      inc(Value[1]);
      inc(Place[1]);
      For k := 1 To i Do Begin
        If Place[k] = 1 Then Begin
          value[k + 1] := value[1];
          place[k + 1] := 0;
          If k <> i Then Break;
        End
        Else Begin
          If place[k] = value[k + 1] Then Begin
            value[k + 1] := value[1];
            inc(Place[k + 1]);
          End
          Else
            Break;
        End;
      End;
      If Place[i + 1] = j Then Begin
        Result := Value[1];
        Exit
      End;
    Until False;
  End
End;


procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.lines.add(IntToStr(ICONackermann(2,3)));
Memo1.lines.add(IntToStr(ICONackermann(4,70))); //habe ich abgebrochen nach ein paar Minuten

end;