Changed result type in ISolver from Cardinal to Int64 for Day 8, part 2
This commit is contained in:
parent
269643ad2a
commit
7baf255fda
18
USolver.pas
18
USolver.pas
|
@ -36,27 +36,27 @@ type
|
|||
procedure Free;
|
||||
function GetDataFileName: string;
|
||||
function GetPuzzleName: string;
|
||||
function GetResultPart1: Cardinal;
|
||||
function GetResultPart2: Cardinal;
|
||||
function GetResultPart1: Int64;
|
||||
function GetResultPart2: Int64;
|
||||
property DataFileName: string read GetDataFileName;
|
||||
property PuzzleName: string read GetPuzzleName;
|
||||
property ResultPart1: Cardinal read GetResultPart1;
|
||||
property ResultPart2: Cardinal read GetResultPart2;
|
||||
property ResultPart1: Int64 read GetResultPart1;
|
||||
property ResultPart2: Int64 read GetResultPart2;
|
||||
end;
|
||||
|
||||
{ TSolver }
|
||||
|
||||
TSolver = class abstract(ISolver)
|
||||
protected
|
||||
FPart1, FPart2: Cardinal;
|
||||
FPart1, FPart2: Int64;
|
||||
public
|
||||
procedure Init; virtual;
|
||||
procedure ProcessDataLine(const ALine: string); virtual; abstract;
|
||||
procedure Finish; virtual; abstract;
|
||||
function GetDataFileName: string; virtual; abstract;
|
||||
function GetPuzzleName: string; virtual; abstract;
|
||||
function GetResultPart1: Cardinal; virtual;
|
||||
function GetResultPart2: Cardinal; virtual;
|
||||
function GetResultPart1: Int64; virtual;
|
||||
function GetResultPart2: Int64; virtual;
|
||||
end;
|
||||
|
||||
{ TSolverEngine }
|
||||
|
@ -81,12 +81,12 @@ begin
|
|||
FPart2 := 0;
|
||||
end;
|
||||
|
||||
function TSolver.GetResultPart1: Cardinal;
|
||||
function TSolver.GetResultPart1: Int64;
|
||||
begin
|
||||
Result := FPart1;
|
||||
end;
|
||||
|
||||
function TSolver.GetResultPart2: Cardinal;
|
||||
function TSolver.GetResultPart2: Int64;
|
||||
begin
|
||||
Result := FPart2;
|
||||
end;
|
||||
|
|
Loading…
Reference in New Issue