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

Added initial attempt for "Day 12: Hot Springs", part 2 including test cases

This commit is contained in:
Stefan Müller 2023-12-13 12:32:12 +01:00 committed by Stefan Müller
parent 64eeb98e85
commit adc17abfde
2 changed files with 101 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
solvers/UHotSprings.pas
View File

@ -30,6 +30,7 @@ const
CWildcardChar = '?';
COperationalPatternChars = [COperationalChar, CWildcardChar];
CDamagedPatternChars = [CDamagedChar, CWildcardChar];
CPart2Repetition = 4;
type
@ -40,7 +41,7 @@ type
FValidation: specialize TList<Integer>;
FSpringPattern: string;
procedure ExtendArrangement(const AArrangement: string; const ARemainingFreeOperationalCount, ACurrentValidationIndex:
Integer);
Integer; var AArrangementCount: Int64);
function TryAppendOperationalChar(var AArrangement: string): Boolean;
function TryAppendValidationBlock(var AArrangement: string; const ALength: Integer): Boolean;
public
@ -57,21 +58,19 @@ implementation
{ THotSprings }
procedure THotSprings.ExtendArrangement(const AArrangement: string; const ARemainingFreeOperationalCount,
ACurrentValidationIndex: Integer);
ACurrentValidationIndex: Integer; var AArrangementCount: Int64);
var
i, len: Integer;
match: Boolean;
temp: string;
begin
len := Length(AArrangement);
if len = Length(FSpringPattern) then
Inc(FPart1)
if Length(AArrangement) = Length(FSpringPattern) then
Inc(AArrangementCount)
else begin
temp := AArrangement;
// Tries to append a dot (operational) to the current arrangement.
if (ARemainingFreeOperationalCount > 0) and TryAppendOperationalChar(temp) then
begin
ExtendArrangement(temp, ARemainingFreeOperationalCount - 1, ACurrentValidationIndex);
ExtendArrangement(temp, ARemainingFreeOperationalCount - 1, ACurrentValidationIndex, AArrangementCount);
end;
// Tries to append the current validation block (damaged) to the current arrangement.
@ -87,7 +86,7 @@ begin
match := False;
if match then
ExtendArrangement(temp, ARemainingFreeOperationalCount, ACurrentValidationIndex + 1);
ExtendArrangement(temp, ARemainingFreeOperationalCount, ACurrentValidationIndex + 1, AArrangementCount);
end;
end;
end;
@ -134,7 +133,7 @@ end;
procedure THotSprings.ProcessDataLine(const ALine: string);
var
split: TStringArray;
i, val, maxFreeOperationalCount: Integer;
i, j, val, maxFreeOperationalCount: Integer;
begin
FValidation.Clear;
split := ALine.Split([' ', ',']);
@ -148,7 +147,19 @@ begin
Dec(maxFreeOperationalCount, val);
end;
ExtendArrangement('', maxFreeOperationalCount, 0);
ExtendArrangement('', maxFreeOperationalCount, 0, FPart1);
WriteLn('Part 1: ', FPart1);
for i := 1 to CPart2Repetition do
begin
FSpringPattern := FSpringPattern + CWildcardChar + split[0];
for j := 0 to Length(split) - 2 do
FValidation.Add(FValidation[j]);
end;
maxFreeOperationalCount := (CPart2Repetition + 1) * maxFreeOperationalCount;
ExtendArrangement('', maxFreeOperationalCount, 0, FPart2);
WriteLn('Part 2: ', FPart2);
end;
procedure THotSprings.Finish;

101
tests/UHotSpringsTestCases.pas
View File

@ -33,6 +33,7 @@ type
function CreateSolver: ISolver; override;
published
procedure TestPart1;
procedure TestPart2;
end;
{ THotSpringsExampleTestCase }
@ -42,6 +43,7 @@ type
function CreateSolver: ISolver; override;
published
procedure TestPart1;
procedure TestPart2;
end;
{ THotSpringsTestCase }
@ -49,14 +51,20 @@ type
THotSpringsTestCase = class(TSolverTestCase)
protected
function CreateSolver: ISolver; override;
procedure TestSingleLine(const ALine: string; const AValue: Integer);
procedure TestSingleLine(const ALine: string);
published
procedure TestExampleLine1;
procedure TestExampleLine2;
procedure TestExampleLine3;
procedure TestExampleLine4;
procedure TestExampleLine5;
procedure TestExampleLine6;
procedure TestExampleLine1Part1;
procedure TestExampleLine2Part1;
procedure TestExampleLine3Part1;
procedure TestExampleLine4Part1;
procedure TestExampleLine5Part1;
procedure TestExampleLine6Part1;
procedure TestExampleLine1Part2;
procedure TestExampleLine2Part2;
procedure TestExampleLine3Part2;
procedure TestExampleLine4Part2;
procedure TestExampleLine5Part2;
procedure TestExampleLine6Part2;
end;
implementation
@ -73,6 +81,11 @@ begin
AssertEquals(7344, FSolver.GetResultPart1);
end;
procedure THotSpringsFullDataTestCase.TestPart2;
begin
AssertEquals(-1, FSolver.GetResultPart2);
end;
{ THotSpringsExampleTestCase }
function THotSpringsExampleTestCase.CreateSolver: ISolver;
@ -85,6 +98,11 @@ begin
AssertEquals(21, FSolver.GetResultPart1);
end;
procedure THotSpringsExampleTestCase.TestPart2;
begin
AssertEquals(525152, FSolver.GetResultPart2);
end;
{ THotSpringsTestCase }
function THotSpringsTestCase.CreateSolver: ISolver;
@ -92,42 +110,83 @@ begin
Result := THotSprings.Create;
end;
procedure THotSpringsTestCase.TestSingleLine(const ALine: string; const AValue: Integer);
procedure THotSpringsTestCase.TestSingleLine(const ALine: string);
begin
FSolver.Init;
FSolver.ProcessDataLine(ALine);
FSolver.Finish;
AssertEquals(AValue, FSolver.GetResultPart1);
end;
procedure THotSpringsTestCase.TestExampleLine1;
procedure THotSpringsTestCase.TestExampleLine1Part1;
begin
TestSingleLine('???.### 1,1,3', 1);
TestSingleLine('???.### 1,1,3');
AssertEquals(1, FSolver.GetResultPart1);
end;
procedure THotSpringsTestCase.TestExampleLine2;
procedure THotSpringsTestCase.TestExampleLine2Part1;
begin
TestSingleLine('.??..??...?##. 1,1,3', 4);
TestSingleLine('.??..??...?##. 1,1,3');
AssertEquals(4, FSolver.GetResultPart1);
end;
procedure THotSpringsTestCase.TestExampleLine3;
procedure THotSpringsTestCase.TestExampleLine3Part1;
begin
TestSingleLine('?#?#?#?#?#?#?#? 1,3,1,6', 1);
TestSingleLine('?#?#?#?#?#?#?#? 1,3,1,6');
AssertEquals(1, FSolver.GetResultPart1);
end;
procedure THotSpringsTestCase.TestExampleLine4;
procedure THotSpringsTestCase.TestExampleLine4Part1;
begin
TestSingleLine('????.#...#... 4,1,1', 1);
TestSingleLine('????.#...#... 4,1,1');
AssertEquals(1, FSolver.GetResultPart1);
end;
procedure THotSpringsTestCase.TestExampleLine5;
procedure THotSpringsTestCase.TestExampleLine5Part1;
begin
TestSingleLine('????.######..#####. 1,6,5', 4);
TestSingleLine('????.######..#####. 1,6,5');
AssertEquals(4, FSolver.GetResultPart1);
end;
procedure THotSpringsTestCase.TestExampleLine6;
procedure THotSpringsTestCase.TestExampleLine6Part1;
begin
TestSingleLine('?###???????? 3,2,1', 10);
TestSingleLine('?###???????? 3,2,1');
AssertEquals(10, FSolver.GetResultPart1);
end;
procedure THotSpringsTestCase.TestExampleLine1Part2;
begin
TestSingleLine('???.### 1,1,3');
AssertEquals(1, FSolver.GetResultPart2);
end;
procedure THotSpringsTestCase.TestExampleLine2Part2;
begin
TestSingleLine('.??..??...?##. 1,1,3');
AssertEquals(16384, FSolver.GetResultPart2);
end;
procedure THotSpringsTestCase.TestExampleLine3Part2;
begin
TestSingleLine('?#?#?#?#?#?#?#? 1,3,1,6');
AssertEquals(1, FSolver.GetResultPart2);
end;
procedure THotSpringsTestCase.TestExampleLine4Part2;
begin
TestSingleLine('????.#...#... 4,1,1');
AssertEquals(16, FSolver.GetResultPart2);
end;
procedure THotSpringsTestCase.TestExampleLine5Part2;
begin
TestSingleLine('????.######..#####. 1,6,5');
AssertEquals(2500, FSolver.GetResultPart2);
end;
procedure THotSpringsTestCase.TestExampleLine6Part2;
begin
TestSingleLine('?###???????? 3,2,1');
AssertEquals(506250, FSolver.GetResultPart2);
end;
initialization