From ce0078be42bd089fef393651aa52b6fcf6fa7532 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Mon, 11 May 2020 16:07:46 +0200
Subject: raetselunit.pas: findePuzzelierung() beschleunigt: akzeptabel für
 n=5, für n=6 manchmal auch
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 raetselunit.pas | 13 +++++++++++++
 1 file changed, 13 insertions(+)

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;
-- 
cgit v1.2.3-54-g00ecf