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

Removed left-over comments from TStepCounter

Browse Source
This commit is contained in:
Stefan Müller 2023-12-22 15:15:56 +01:00 committed by Stefan Müller
parent 4e28a7a4c2
commit 197e5f81b9
1 changed files with 0 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
solvers/UStepCounter.pas
View File

@ -112,7 +112,6 @@ var
currentStep: Integer;
currentPlots, nextPlots, temp: TPoints;
plot, direction, next: TPoint;
//s: string;
begin
FWidth := Length(FLines[0]);
FHeight := FLines.Count;
@ -144,15 +143,7 @@ begin
// Positions where the number of steps are even can be reached with trivial backtracking, so they count.
if currentStep mod 2 = 0 then
//begin
Inc(FPart1, currentPlots.Count);
// for plot in currentPlots do
// SetPosition(plot, 'O');
//end;
//for s in FLines do
// WriteLn(s);
//WriteLn;
end;
currentPlots.Free;