Added WIP analytical solution attempt
This commit is contained in:
@@ -33,6 +33,7 @@ type
|
||||
function CreateSolver: ISolver; override;
|
||||
published
|
||||
procedure TestPart1;
|
||||
procedure TestPart2;
|
||||
end;
|
||||
|
||||
{ TNeverTellMeTheOddsExampleTestCase }
|
||||
@@ -42,6 +43,7 @@ type
|
||||
function CreateSolver: ISolver; override;
|
||||
published
|
||||
procedure TestPart1;
|
||||
procedure TestPart2;
|
||||
end;
|
||||
|
||||
{ TNeverTellMeTheOddsTestCase }
|
||||
@@ -77,6 +79,11 @@ begin
|
||||
AssertEquals(15107, FSolver.GetResultPart1);
|
||||
end;
|
||||
|
||||
procedure TNeverTellMeTheOddsFullDataTestCase.TestPart2;
|
||||
begin
|
||||
AssertEquals(-1, FSolver.GetResultPart2);
|
||||
end;
|
||||
|
||||
{ TNeverTellMeTheOddsExampleTestCase }
|
||||
|
||||
function TNeverTellMeTheOddsExampleTestCase.CreateSolver: ISolver;
|
||||
@@ -89,6 +96,11 @@ begin
|
||||
AssertEquals(2, FSolver.GetResultPart1);
|
||||
end;
|
||||
|
||||
procedure TNeverTellMeTheOddsExampleTestCase.TestPart2;
|
||||
begin
|
||||
AssertEquals(47, FSolver.GetResultPart2);
|
||||
end;
|
||||
|
||||
{ TNeverTellMeTheOddsTestCase }
|
||||
|
||||
function TNeverTellMeTheOddsTestCase.CreateSolver: ISolver;
|
||||
|
||||
Reference in New Issue
Block a user