Added solution for "Day 1: Trebuchet?!", part 1

AdventOfCode.lpi

@@ -0,0 +1,69 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<CONFIG>
+  <ProjectOptions>
+    <Version Value="12"/>
+    <PathDelim Value="\"/>
+    <General>
+      <Flags>
+        <MainUnitHasCreateFormStatements Value="False"/>
+        <MainUnitHasTitleStatement Value="False"/>
+        <MainUnitHasScaledStatement Value="False"/>
+      </Flags>
+      <SessionStorage Value="InProjectDir"/>
+      <Title Value="Advent of Code 2023"/>
+      <UseAppBundle Value="False"/>
+      <ResourceType Value="res"/>
+    </General>
+    <BuildModes>
+      <Item Name="Default" Default="True"/>
+    </BuildModes>
+    <PublishOptions>
+      <Version Value="2"/>
+      <UseFileFilters Value="True"/>
+    </PublishOptions>
+    <RunParams>
+      <FormatVersion Value="2"/>
+    </RunParams>
+    <Units>
+      <Unit>
+        <Filename Value="AdventOfCode.lpr"/>
+        <IsPartOfProject Value="True"/>
+      </Unit>
+      <Unit>
+        <Filename Value="puzzles\utrebuchet.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="UTrebuchet"/>
+      </Unit>
+    </Units>
+  </ProjectOptions>
+  <CompilerOptions>
+    <Version Value="11"/>
+    <PathDelim Value="\"/>
+    <Target>
+      <Filename Value="bin\AdventOfCode"/>
+    </Target>
+    <SearchPaths>
+      <IncludeFiles Value="$(ProjOutDir)"/>
+      <OtherUnitFiles Value="puzzles"/>
+      <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
+    </SearchPaths>
+    <Linking>
+      <Debugging>
+        <DebugInfoType Value="dsDwarf3"/>
+      </Debugging>
+    </Linking>
+  </CompilerOptions>
+  <Debugging>
+    <Exceptions>
+      <Item>
+        <Name Value="EAbort"/>
+      </Item>
+      <Item>
+        <Name Value="ECodetoolError"/>
+      </Item>
+      <Item>
+        <Name Value="EFOpenError"/>
+      </Item>
+    </Exceptions>
+  </Debugging>
+</CONFIG>

AdventOfCode.lpr

@@ -0,0 +1,103 @@
+{
+  Solutions to the Advent Of Code.
+  Copyright (C) 2023  Stefan Müller
+
+  This program is free software: you can redistribute it and/or modify it under
+  the terms of the GNU General Public License as published by the Free Software
+  Foundation, either version 3 of the License, or (at your option) any later
+  version.
+
+  This program is distributed in the hope that it will be useful, but WITHOUT
+  ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+  FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License along with
+  this program.  If not, see <http://www.gnu.org/licenses/>.
+}
+
+program AdventOfCode;
+
+{$mode objfpc}{$H+}
+
+uses
+  {$IFDEF UNIX}
+  cthreads,
+  {$ENDIF}
+  Classes, SysUtils, CustApp, UTrebuchet;
+
+type
+
+  { TAdventOfCode }
+
+  TAdventOfCode = class(TCustomApplication)
+  private
+    procedure RunPuzzleSolutions;
+  protected
+    procedure DoRun; override;
+  public
+    constructor Create(TheOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure WriteHelp; virtual;
+  end;
+
+{ TAdventOfCode }
+
+procedure TAdventOfCode.RunPuzzleSolutions;
+begin
+  TTrebuchet.Solve;
+end;
+
+procedure TAdventOfCode.DoRun;
+var
+  ErrorMsg: String;
+begin
+  // quick check parameters
+  ErrorMsg := CheckOptions('h', 'help');
+  if ErrorMsg <> '' then
+  begin
+    ShowException(Exception.Create(ErrorMsg));
+    Terminate;
+    Exit;
+  end;
+
+  // parse parameters
+  if HasOption('h', 'help') then
+  begin
+    WriteHelp;
+    Terminate;
+    Exit;
+  end;
+
+  { add your program here }
+  RunPuzzleSolutions;
+
+  // stop program loop
+  Terminate;
+end;
+
+constructor TAdventOfCode.Create(TheOwner: TComponent);
+begin
+  inherited Create(TheOwner);
+  StopOnException := True;
+end;
+
+destructor TAdventOfCode.Destroy;
+begin
+  inherited Destroy;
+end;
+
+procedure TAdventOfCode.WriteHelp;
+begin
+  { add your help code here }
+  writeln('Usage: ', ExeName, ' -h');
+end;
+
+var
+  Application: TAdventOfCode;
+begin
+  Application := TAdventOfCode.Create(nil);
+  Application.Title := 'Advent of Code 2023';
+  Application.Run;
+  Application.Free;
+end.
+

puzzles/utrebuchet.pas

@@ -0,0 +1,81 @@
+unit UTrebuchet;
+
+{$mode ObjFPC}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils;
+
+type
+
+  { TTrebuchet }
+
+  TTrebuchet = class(TObject)
+  private
+    FValue: Integer;
+    procedure RunSolution;
+    procedure ProcessDataLine(const ALine: string);
+  public
+    class procedure Solve; static;
+    constructor Create;
+  end;
+
+implementation
+
+{ TTrebuchet }
+
+procedure TTrebuchet.RunSolution;
+var
+  data: TextFile;
+  s: string;
+begin
+  AssignFile(data, ConcatPaths(['data', 'trebuchet_calibration_document.txt']));
+  try
+    reset(data);
+    while (not EOF(data)) do
+    begin
+      readln(data, s);
+      ProcessDataLine(s);
+    end;
+  finally
+    CloseFile(data)
+  end;
+  WriteLn(FValue);
+end;
+
+procedure TTrebuchet.ProcessDataLine(const ALine: string);
+var
+  c: Char;
+  first, last: Integer;
+begin
+  first := -1;
+  last := -1;
+  for c in ALine do
+  begin
+    if c in ['0'..'9'] then
+    begin
+      last := StrToInt(c);
+      if first < 0 then
+        first := last;
+    end;
+  end;
+  Inc(FValue, first * 10 + last);
+end;
+
+class procedure TTrebuchet.Solve;
+var
+  trebuchet: TTrebuchet;
+begin
+  WriteLn('--- Day 1: Trebuchet?! ---');
+  trebuchet := TTrebuchet.Create;
+  trebuchet.RunSolution;
+end;
+
+constructor TTrebuchet.Create;
+begin
+  FValue := 0;
+end;
+
+end.
+