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

Fixed nested if block in USandSlabs.pas

This commit is contained in:
Stefan Müller 2024-06-26 21:16:02 +02:00
parent 5441700572
commit 00f90a1da9
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
solvers/USandSlabs.pas
View File

@ -230,14 +230,12 @@ begin
end; end;
// Updates disintegration flag. // Updates disintegration flag.
if ABrick.SupportBricks.Count = 1 then if (ABrick.SupportBricks.Count = 1)
begin and ABrick.SupportBricks[0].IsDisintegratable then
if ABrick.SupportBricks[0].IsDisintegratable then
begin begin
ABrick.SupportBricks[0].IsDisintegratable := False; ABrick.SupportBricks[0].IsDisintegratable := False;
Dec(FPart1); Dec(FPart1);
end; end;
end;
for i := 0 to ABrick.SupportBricks.Count - 1 do for i := 0 to ABrick.SupportBricks.Count - 1 do
ABrick.SupportBricks[i].AddTopBrick(ABrick); ABrick.SupportBricks[i].AddTopBrick(ABrick);