raetselunit.pas: findePuzzelierung() beschleunigt: akzeptabel für n=5, für n=6 manchmal auch

1 files changed, 13 insertions, 0 deletions

diff --git a/raetselunit.pas b/raetselunit.pas
index b8f7171..f52a4a3 100644
--- a/raetselunit.pas
+++ b/raetselunit.pas
@@ -1105,6 +1105,19 @@ begin
         continue;
       end;
     end;
+    if ((i div dim) > 0) and
+      (invPuzzleTeile[i-dim]['x']<>invPuzzleTeile[i]['x']) and
+      (kAnzs[invPuzzleTeile[i-dim]['x']]<dim) then begin
+      gefunden:=false;
+      for j:=0 to kAnzs[invPuzzleTeile[i-dim]['x']]-1 do
+        if (puzzleTeile[invPuzzleTeile[i-dim]['x']][j] div dim < dim-1) and
+          (i - puzzleTeile[invPuzzleTeile[i-dim]['x']][j] < dim) then begin
+          gefunden:=true;
+          break;
+        end;
+      if not gefunden then
+        continue;
+    end;
     inc(i);
   end;
 end;