warrence
/
AdventOfCode2023
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed unused variables in THotSprings

This commit is contained in:
Stefan Müller 2023-12-13 18:37:56 +01:00 committed by Stefan Müller
parent 64eeb98e85
commit d32297782c
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
solvers/UHotSprings.pas
View File

@ -59,12 +59,10 @@ implementation
procedure THotSprings.ExtendArrangement(const AArrangement: string; const ARemainingFreeOperationalCount, procedure THotSprings.ExtendArrangement(const AArrangement: string; const ARemainingFreeOperationalCount,
ACurrentValidationIndex: Integer); ACurrentValidationIndex: Integer);
var var
i, len: Integer;
match: Boolean; match: Boolean;
temp: string; temp: string;
begin begin
len := Length(AArrangement); if Length(AArrangement) = Length(FSpringPattern) then
if len = Length(FSpringPattern) then
Inc(FPart1) Inc(FPart1)
else begin else begin
temp := AArrangement; temp := AArrangement;