Array / Alle Kombinationsmöglichkeiten ausprobieren

[ichbins]

Du weisst schon dass es ziemlich viele Möglichkeiten gibt, dieses (3x3) Quadrat zu füllen?

Insgesammt wärend das

Code:

9^(3*3)

Stück, also 387420489. Die passen nicht in den Arbeitsspeicher. Du müsstest also ein

Delphi-Quellcode:

var
  a:array[1..387420489,1..9] of integer   //machen und so füllen:
  i1,i2,i3,i4,i5,i6,i7,i8,i9:integer;
  pos:int64;
begin
  for i1:=1 to 9 do
    for i2:=1 to 9 do
      for i3:=1 to 9 do
        for i4:=1 to 9 do
          for i5:=1 to 9 do
            for i6:=1 to 9 do
              for i7:=1 to 9 do
                for i8:=1 to 9 do
                  for i9:=1 to 9 do
                  begin
                    inc(pos);
                    a[pos,1]:=i1; 
                    a[pos,2]:=i2; 
                    a[pos,3]:=i3; 
                    a[pos,4]:=i4; 
                    a[pos,5]:=i5; 
                    a[pos,6]:=i6; 
                    a[pos,7]:=i7; 
                    a[pos,8]:=i8; 
                    a[pos,9]:=i9; 
                  end; 
end;

kleine Größenrerchnung: Jedes Array-Element hat 9 Elemente zu je 4 byte (integer) -> 36 Byte. Dein Array beansprucht also 13947137604 Byte Arbeitsspeicher. Das sind 12,99 GB. Wenn du den Arraytypen statt Integer zu einem Byte machst, sind es immer noch 4,25 GB. Du musst also noch etwas warten bevor du diese Operation durchführen kannst, aber in 5 Jahren ist so viel Speicher kein Problem mehr.

Bei einem 9x9-Quadrat steigt die Anzahl ins Unermessliche:
9^(9*9) * 36 Bytes = 65900000000000000000000000000000000000000000000000 00000000000000000000 Gigabyte RAM...