Added solution for "Day 3: Gear Ratios", part 2

This commit is contained in:
2023-12-04 16:34:26 +01:00
committed by Stefan Müller
parent 015b823376
commit 9c4fb8b63a
3 changed files with 187 additions and 18 deletions

View File

@@ -44,6 +44,7 @@ type
procedure TearDown; override;
published
procedure TestPart1;
procedure TestPart2;
end;
{ TGearRatiosTestCase }
@@ -97,6 +98,12 @@ begin
AssertEquals(530495, FSolver.GetResultPart1);
end;
procedure TGearRatiosFullDataTestCase.TestPart2;
begin
AssertEquals(80253814, FSolver.GetResultPart2);
end;
{ TGearRatiosTestCase }
procedure TGearRatiosTestCase.TestEndOfLineNumber;

View File

@@ -11,6 +11,8 @@ TGearRatiosFullDataTestCase.Checked=1
TGearRatiosFullDataTestCase.Expanded=1
TGearRatiosFullDataTestCase.TestPart1.Checked=1
TGearRatiosFullDataTestCase.TestPart1.Expanded=0
TGearRatiosFullDataTestCase.TestPart2.Checked=1
TGearRatiosFullDataTestCase.TestPart2.Expanded=0
TGearRatiosTestCase.Checked=1
TGearRatiosTestCase.Expanded=1
TGearRatiosTestCase.TestEndOfLineNumber.Checked=1