summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorErich Eckner <git@eckner.net>2020-05-11 16:07:46 +0200
committerErich Eckner <git@eckner.net>2020-05-11 16:07:46 +0200
commitce0078be42bd089fef393651aa52b6fcf6fa7532 (patch)
treee3fceaff2a1d53f8e023e778f61d15d5c1c9f8cc
parent0f346a137b3acbd0c4ee3663507c75e67d53c5ac (diff)
downloadRaetsel-ce0078be42bd089fef393651aa52b6fcf6fa7532.tar.xz
raetselunit.pas: findePuzzelierung() beschleunigt: akzeptabel für n=5, für n=6 manchmal auch
-rw-r--r--raetselunit.pas13
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;