1:
2:
3:
4:
5:
6:
7:

Seitenlänge     Anzahl      Rechenzeit
   7                0            0,00
   8                2            0,00
   9              664            0,00
  10           146510         0:00,42
  11         31197434         1:30,17
  12   Abbruch 702662000    4:7:26,39                    

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:
48:
49:
50:
51:
52:
53:
54:

function TGappy.Erlaubt(x1,x2:Integer):Boolean;
  var Sum1,Sum2,y1:Integer;
  begin
   Result:=True;
   // Spaltentest
   Sum1:=0;Sum2:=0;
   for y1:=1 to FeldBreite do
    begin
     if Feld[x1,y1]=1 then inc(Sum1);
     if Sum1>1 then begin Result:=False;exit end;
     if Feld[x2,y1]=1 then inc(Sum2);
     if Sum2>1 then begin Result:=False;exit end;
    end;
  end;

 procedure TGappy.Such(y:Integer);
  var F:TFeld;
      x1,x2:Integer;
      TimeStr:String;
      TSek:Extended;
  begin
   for x1:=1 to FeldBreite-2 do
    if Feld[x1,y]=0 then
     for x2:=x1+2 to FeldBreite do
      if Feld[x2,y]=0 then
       if Erlaubt(x1,x2) then
        begin
         F:=Feld;
         Feld[x1,y]:=1;Feld[x2,y]:=1;
         Feld[x1-1,y+1]:=5;Feld[x1,y+1]:=5;Feld[x1+1,y+1]:=5;
         Feld[x2-1,y+1]:=5;Feld[x2,y+1]:=5;Feld[x2+1,y+1]:=5;
         if y<FeldBreite then Such(y+1)
         else
          begin
           inc(Stellungen);
           if Stellungen mod 1000=0 then // Abbruch mit <ESC>
            begin
             Application.ProcessMessages;
             if GetAsyncKeyState(VK_Escape)<0 then
              begin
               QueryPerformanceCounter(ZielZeit);
               TSek:=(ZielZeit-StartZeit)/Frequenz;
               TimeStr:=TimeInTStMS(TSek);
               LabelInfo.Caption:=IntToStr(Stellungen)+' Stellungen in '+TimeStr+' gefunden';
               if MessageDlg('Weiter Suchen?',mtConfirmation,[mbyes,mbNo],0)=mrno then
                begin Abbruch:=True;exit end;
              end;
            end;
           if Zeigen.Checked then FeldAusgabe(Stellungen,Feld)
          end;
         if Abbruch then exit;
         Feld:=F
        end;
  end;                    

1:
2:
3:
4:
5:
6:
7:

Seitenlänge     Anzahl      Rechenzeit
   7                  0            0,00
   8                  2            0,00
   9                664            0,00
  10            146.510         0:00,42
  11         31.197.434         1:30,17
  12Abbruch 702.662.000    4:7:26,39                    

1:
2:

                IF Stellungen > 702662000 then
                  Abbruch := true;                    

1:
2:

Beim Übergang  9 auf 10 sind es etwa 220-fache Lösungszahl.
Beim Übergang 10 auf 11 sind es etwa 212-fache Lösungszahl.