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

Removed fgl references

This commit is contained in:
Stefan Müller 2023-12-30 23:20:52 +01:00 committed by Stefan Müller
parent fb3f41a6af
commit 571019d604
4 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
solvers/UGearRatios.pas
View File

@ -22,7 +22,7 @@ unit UGearRatios;
interface interface
uses uses
Classes, SysUtils, fgl, USolver; Classes, SysUtils, Generics.Collections, USolver;
const const
CDigitChars = ['0'..'9']; CDigitChars = ['0'..'9'];
@ -45,7 +45,7 @@ type
{ TGearCandidates } { TGearCandidates }
TGearCandidates = specialize TFPGObjectList<TGearCandidate>; TGearCandidates = specialize TObjectList<TGearCandidate>;
{ TGearCandidateTracker } { TGearCandidateTracker }

4
solvers/UGiveSeedFertilizer.pas
View File

@ -23,7 +23,7 @@ unit UGiveSeedFertilizer;
interface interface
uses uses
Classes, SysUtils, fgl, Math, USolver; Classes, SysUtils, Generics.Collections, Math, USolver;
type type
@ -36,7 +36,7 @@ type
class operator = (Left, Right : TValueRange): Boolean; class operator = (Left, Right : TValueRange): Boolean;
end; end;
TValueRanges = specialize TFPGList<TValueRange>; TValueRanges = specialize TList<TValueRange>;
{ TAlmanacMapRange } { TAlmanacMapRange }

6
solvers/UScratchcards.pas
View File

@ -22,7 +22,7 @@ unit UScratchcards;
interface interface
uses uses
Classes, SysUtils, fgl, USolver; Classes, SysUtils, Generics.Collections, USolver;
type type
@ -30,7 +30,7 @@ type
TScratchcards = class(TSolver) TScratchcards = class(TSolver)
private private
FCardCopies: specialize TFPGList<Integer>; FCardCopies: specialize TList<Integer>;
function GetNumber(const AString: string; const AIndex: Integer): Integer; function GetNumber(const AString: string; const AIndex: Integer): Integer;
public public
constructor Create; constructor Create;
@ -53,7 +53,7 @@ end;
constructor TScratchcards.Create; constructor TScratchcards.Create;
begin begin
FCardCopies := specialize TFPGList<Integer>.Create; FCardCopies := specialize TList<Integer>.Create;
end; end;
destructor TScratchcards.Destroy; destructor TScratchcards.Destroy;

10
solvers/UWaitForIt.pas
View File

@ -22,7 +22,7 @@ unit UWaitForIt;
interface interface
uses uses
Classes, SysUtils, fgl, Math, USolver; Classes, SysUtils, Generics.Collections, Math, USolver;
type type
@ -30,7 +30,7 @@ type
TWaitForIt = class(TSolver) TWaitForIt = class(TSolver)
private private
FTimes, FDistances: specialize TFPGList<Cardinal>; FTimes, FDistances: specialize TList<Cardinal>;
FLongTime, FLongDistance: UInt64; FLongTime, FLongDistance: UInt64;
function CalcRange(const ATime, ADistance: UInt64): Cardinal; function CalcRange(const ATime, ADistance: UInt64): Cardinal;
public public
@ -60,8 +60,8 @@ end;
constructor TWaitForIt.Create; constructor TWaitForIt.Create;
begin begin
FTimes := specialize TFPGList<Cardinal>.Create; FTimes := specialize TList<Cardinal>.Create;
FDistances := specialize TFPGList<Cardinal>.Create; FDistances := specialize TList<Cardinal>.Create;
end; end;
destructor TWaitForIt.Destroy; destructor TWaitForIt.Destroy;
@ -74,7 +74,7 @@ end;
procedure TWaitForIt.ProcessDataLine(const ALine: string); procedure TWaitForIt.ProcessDataLine(const ALine: string);
var var
split: TStringArray; split: TStringArray;
list: specialize TFPGList<Cardinal>; list: specialize TList<Cardinal>;
value: PUInt64; value: PUInt64;
i: Integer; i: Integer;
cleaned: string; cleaned: string;