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

Removed unintentional WriteLn comments

This commit is contained in:
Stefan Müller 2024-05-23 21:06:33 +02:00
parent 52cee73123
commit fad6e496c0
1 changed files with 0 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
UBigInt.pas
View File

@ -568,7 +568,6 @@ end;
operator := (const A: Int64): TBigInt; operator := (const A: Int64): TBigInt;
begin begin
Result := TBigInt.FromInt64(A); Result := TBigInt.FromInt64(A);
//WriteLn(':=a op: ', Result.ToString);
end; end;
operator - (const A: TBigInt): TBigInt; operator - (const A: TBigInt): TBigInt;
@ -583,8 +582,6 @@ begin
end end
else else
Result := TBigInt.Zero; Result := TBigInt.Zero;
//WriteLn(' a: ', A.ToString);
//WriteLn('-a op: ', Result.ToString);
end; end;
operator + (const A, B: TBigInt): TBigInt; operator + (const A, B: TBigInt): TBigInt;
@ -593,9 +590,6 @@ begin
Result := TBigInt.AddAbsoluteValues(A, B, A.IsNegative) Result := TBigInt.AddAbsoluteValues(A, B, A.IsNegative)
else else
Result := TBigInt.SubtractAbsoluteValues(A, B, A.IsNegative); Result := TBigInt.SubtractAbsoluteValues(A, B, A.IsNegative);
//WriteLn(' a: ', A.ToString);
//WriteLn(' b: ', B.ToString);
//WriteLn('a+b op: ', Result.ToString);
end; end;
operator - (const A, B: TBigInt): TBigInt; operator - (const A, B: TBigInt): TBigInt;
@ -604,9 +598,6 @@ begin
Result := TBigInt.SubtractAbsoluteValues(A, B, A.IsNegative) Result := TBigInt.SubtractAbsoluteValues(A, B, A.IsNegative)
else else
Result := TBigInt.AddAbsoluteValues(A, B, A.IsNegative); Result := TBigInt.AddAbsoluteValues(A, B, A.IsNegative);
//WriteLn(' a: ', A.ToString);
//WriteLn(' b: ', B.ToString);
//WriteLn('a-b op: ', Result.ToString);
end; end;
operator * (const A, B: TBigInt): TBigInt; operator * (const A, B: TBigInt): TBigInt;
@ -615,9 +606,6 @@ begin
Result := TBigInt.Zero Result := TBigInt.Zero
else else
Result := TBigInt.MultiplyAbsoluteValues(A, B, A.IsNegative <> B.IsNegative); Result := TBigInt.MultiplyAbsoluteValues(A, B, A.IsNegative <> B.IsNegative);
//WriteLn(' a: ', A.ToString);
//WriteLn(' b: ', B.ToString);
//WriteLn('a*b op: ', Result.ToString);
end; end;
operator shl(const A: TBigInt; const B: Integer): TBigInt; operator shl(const A: TBigInt; const B: Integer): TBigInt;
@ -670,8 +658,6 @@ begin
Result.FIsNegative := A.IsNegative; Result.FIsNegative := A.IsNegative;
end; end;
//WriteLn(' a: ', A.ToString);
//WriteLn('a<< op: ', Result.ToString);
end; end;
operator = (const A, B: TBigInt): Boolean; operator = (const A, B: TBigInt): Boolean;