Added global BinomialCoefficients instance

2024-11-17 17:47:43 +01:00
parent 05863842df
commit 3f7fb4a548
1 changed files with 9 additions and 0 deletions
--- a/UBinomialCoefficients.pas
+++ b/UBinomialCoefficients.pas
@@ -44,6 +44,9 @@ type
    function GetCachedRowsCount: Cardinal;
  end;

+var
+  BinomialCoefficients: TBinomialCoefficientCache;
+
 implementation

 { TBinomialCoefficientCache }
@@ -92,5 +95,11 @@ begin
  Result := FCache.Count;
 end;

+initialization
+  BinomialCoefficients := TBinomialCoefficientCache.Create;
+
+finalization
+  BinomialCoefficients.Free;
+
 end.