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

Added solution for "Day 22: Sand Slabs", part 2

Browse Source
This commit is contained in:
Stefan Müller
2023-12-23 20:03:05 +01:00
committed by Stefan Müller
parent 7b77846abc
commit 2bb89c952b
2 changed files with 99 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
tests/USandSlabsTestCases.pas
View File

@@ -33,6 +33,7 @@ type
function CreateSolver: ISolver; override;
published
procedure TestPart1;
procedure TestPart2;
end;
{ TSandSlabsExampleTestCase }
@@ -42,6 +43,7 @@ type
function CreateSolver: ISolver; override;
published
procedure TestPart1;
procedure TestPart2;
end;
implementation
@@ -58,6 +60,11 @@ begin
AssertEquals(389, FSolver.GetResultPart1);
end;
procedure TSandSlabsFullDataTestCase.TestPart2;
begin
AssertEquals(70609, FSolver.GetResultPart2);
end;
{ TSandSlabsExampleTestCase }
function TSandSlabsExampleTestCase.CreateSolver: ISolver;
@@ -70,6 +77,11 @@ begin
AssertEquals(5, FSolver.GetResultPart1);
end;
procedure TSandSlabsExampleTestCase.TestPart2;
begin
AssertEquals(7, FSolver.GetResultPart2);
end;
initialization
RegisterTest(TSandSlabsFullDataTestCase);