From d32297782ca0ea8414e4fa219b70589661020e9f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Stefan=20M=C3=BCller?= <stefan.mueller@aksdb.de>
Date: Wed, 13 Dec 2023 18:37:56 +0100
Subject: [PATCH] Fixed unused variables in THotSprings

---
 solvers/UHotSprings.pas | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/solvers/UHotSprings.pas b/solvers/UHotSprings.pas
index 6b27105..8f12cab 100644
--- a/solvers/UHotSprings.pas
+++ b/solvers/UHotSprings.pas
@@ -59,12 +59,10 @@ implementation
 procedure THotSprings.ExtendArrangement(const AArrangement: string; const ARemainingFreeOperationalCount,
   ACurrentValidationIndex: Integer);
 var
-  i, len: Integer;
   match: Boolean;
   temp: string;
 begin
-  len := Length(AArrangement);
-  if len = Length(FSpringPattern) then
+  if Length(AArrangement) = Length(FSpringPattern) then
     Inc(FPart1)
   else begin
     temp := AArrangement;