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

Added solution for "Day 14: Parabolic Reflector Dish", part 2

Browse Source
This commit is contained in:
Stefan Müller
2023-12-14 21:23:07 +01:00
committed by Stefan Müller
parent 637e7aedad
commit 22b9a24893
2 changed files with 257 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
tests/UParabolicReflectorDishTestCases.pas
View File

@@ -33,6 +33,7 @@ type
function CreateSolver: ISolver; override;
published
procedure TestPart1;
procedure TestPart2;
end;
{ TParabolicReflectorDishExampleTestCase }
@@ -42,6 +43,7 @@ type
function CreateSolver: ISolver; override;
published
procedure TestPart1;
procedure TestPart2;
end;
implementation
@@ -58,6 +60,11 @@ begin
AssertEquals(103614, FSolver.GetResultPart1);
end;
procedure TParabolicReflectorDishFullDataTestCase.TestPart2;
begin
AssertEquals(83790, FSolver.GetResultPart2);
end;
{ TParabolicReflectorDishExampleTestCase }
function TParabolicReflectorDishExampleTestCase.CreateSolver: ISolver;
@@ -70,6 +77,11 @@ begin
AssertEquals(136, FSolver.GetResultPart1);
end;
procedure TParabolicReflectorDishExampleTestCase.TestPart2;
begin
AssertEquals(64, FSolver.GetResultPart2);
end;
initialization
RegisterTest(TParabolicReflectorDishFullDataTestCase);