From 2e131997961c2c9f5660578e43824c029c3836b4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Stefan=20M=C3=BCller?= <stefan.mueller@aksdb.de>
Date: Tue, 5 Dec 2023 15:45:57 +0100
Subject: [PATCH] Updated "Cube Conundrum" to use the solver-engine framework

---
 AdventOfCode.lpr           |  2 +-
 solvers/UCubeConundrum.pas | 78 ++++++++++++++------------------------
 2 files changed, 30 insertions(+), 50 deletions(-)

diff --git a/AdventOfCode.lpr b/AdventOfCode.lpr
index 51224b5..066c926 100644
--- a/AdventOfCode.lpr
+++ b/AdventOfCode.lpr
@@ -50,8 +50,8 @@ var
 begin
   WriteLn('### Advent of Code 2023 ###');
   TTrebuchet.Run;
-  TCubeConundrum.Run;
   engine := TSolverEngine.Create('data');
+  engine.RunAndFree(TCubeConundrum.Create);
   engine.RunAndFree(TGearRatios.Create);
   engine.RunAndFree(TScratchcards.Create);
   engine.RunAndFree(TGiveSeedFertilizer.Create);
diff --git a/solvers/UCubeConundrum.pas b/solvers/UCubeConundrum.pas
index cd0731b..0dae27a 100644
--- a/solvers/UCubeConundrum.pas
+++ b/solvers/UCubeConundrum.pas
@@ -22,7 +22,7 @@ unit UCubeConundrum;
 interface
 
 uses
-  Classes, SysUtils;
+  Classes, SysUtils, USolver;
 
 const
   CMaxRed = 12;
@@ -33,35 +33,22 @@ type
 
   { TCubeConundrum }
 
-  TCubeConundrum = class(TObject)
+  TCubeConundrum = class(TSolver)
   private
-    FValue1, FValue2, FGameMaxRed, FGameMaxGreen, FGameMaxBlue: Integer;
-    procedure ProcessDataLine(const ALine: string);
+    FGameMaxRed, FGameMaxGreen, FGameMaxBlue: Integer;
     procedure ProcessGame(const id: Integer; const draws: TStringArray);
     function ProcessDraw(const cubes: TStringArray): Boolean;
   public
-    procedure Solve;
-    property Part1: Integer read FValue1;
-    property Part2: Integer read FValue2;
-    class procedure Run; static;
+    procedure ProcessDataLine(const ALine: string); override;
+    procedure Finish; override;
+    function GetDataFileName: string; override;
+    function GetPuzzleName: string; override;
   end;
 
 implementation
 
 { TCubeConundrum }
 
-procedure TCubeConundrum.ProcessDataLine(const ALine: string);
-var
-  gameSplit, subSplit: TStringArray;
-  id: Integer;
-begin
-  gameSplit := ALine.Split(':');
-  subSplit := gameSplit[0].Split(' ');
-  id := StrToInt(subSplit[1]);
-  subSplit := gameSplit[1].Split(';');
-  ProcessGame(id, subSplit);
-end;
-
 procedure TCubeConundrum.ProcessGame(const id: Integer; const draws: TStringArray);
 var
   draw: string;
@@ -84,10 +71,10 @@ begin
   if isWithinMaxima then
   begin
     // All draws fulfill maxima.
-    Inc(FValue1, id);
+    Inc(FPart1, id);
   end;
 
-  Inc(FValue2, FGameMaxRed * FGameMaxGreen * FGameMaxBlue);
+  Inc(FPart2, FGameMaxRed * FGameMaxGreen * FGameMaxBlue);
 end;
 
 function TCubeConundrum.ProcessDraw(const cubes: TStringArray): Boolean;
@@ -125,38 +112,31 @@ begin
   end;
 end;
 
-procedure TCubeConundrum.Solve;
+procedure TCubeConundrum.ProcessDataLine(const ALine: string);
 var
-  data: TextFile;
-  s: string;
+  gameSplit, subSplit: TStringArray;
+  id: Integer;
 begin
-  FValue1 := 0;
-  FValue2 := 0;
-
-  AssignFile(data, ConcatPaths(['data', 'cube_conundrum.txt']));
-  try
-    reset(data);
-    while (not EOF(data)) do
-    begin
-      readln(data, s);
-      ProcessDataLine(s);
-    end;
-  finally
-    CloseFile(data)
-  end;
+  gameSplit := ALine.Split(':');
+  subSplit := gameSplit[0].Split(' ');
+  id := StrToInt(subSplit[1]);
+  subSplit := gameSplit[1].Split(';');
+  ProcessGame(id, subSplit);
 end;
 
-class procedure TCubeConundrum.Run;
-var
-  cubeConundrum: TCubeConundrum;
+procedure TCubeConundrum.Finish;
 begin
-  WriteLn;
-  WriteLn('--- Day 2: Cube Conundrum ---');
-  cubeConundrum := TCubeConundrum.Create;
-  cubeConundrum.Solve;
-  WriteLn('Part 1: ', cubeConundrum.Part1);
-  WriteLn('Part 2: ', cubeConundrum.Part2);
-  cubeConundrum.Free;
+
+end;
+
+function TCubeConundrum.GetDataFileName: string;
+begin
+  Result := 'cube_conundrum.txt';
+end;
+
+function TCubeConundrum.GetPuzzleName: string;
+begin
+  Result := 'Day 2: Cube Conundrum';
 end;
 
 end.