Merge branch 'feature/31-add-geometric-mean-functions' into develop

Fixes #31

Author: delphidabbler

collection/643.dat

@@ -12,7 +12,7 @@ begin
   for Elem in A do
   begin
     if Elem = 0 then
-      raise SysUtils.EArgumentOutOfRangeException(sNotPositive);
+      raise SysUtils.EArgumentOutOfRangeException.Create(sNotPositive);
     Result := Result + System.Ln(Elem);
   end;
 end;

collection/644.dat

@@ -12,7 +12,7 @@ begin
   for Elem in A do
   begin
     if Elem <= 0 then
-      raise SysUtils.EArgumentOutOfRangeException(sNotPositive);
+      raise SysUtils.EArgumentOutOfRangeException.Create(sNotPositive);
     Result := Result + System.Ln(Elem);
   end;
 end;

collection/645.dat

@@ -12,7 +12,7 @@ begin
   for Elem in A do
   begin
     if Elem <= 0 then
-      raise SysUtils.EArgumentOutOfRangeException(sNotPositive);
+      raise SysUtils.EArgumentOutOfRangeException.Create(sNotPositive);
     Result := Result + System.Ln(Elem);
   end;
 end;

collection/646.dat

@@ -12,7 +12,7 @@ begin
   for Elem in A do
   begin
     if Elem = 0 then
-      raise SysUtils.EArgumentOutOfRangeException(sNotPositive);
+      raise SysUtils.EArgumentOutOfRangeException.Create(sNotPositive);
     Result := Result + System.Ln(Elem);
   end;
 end;

collection/647.dat

@@ -12,7 +12,7 @@ begin
   for Elem in A do
   begin
     if Math.Sign(Elem) <> Math.PositiveValue then
-      raise SysUtils.EArgumentOutOfRangeException(sNotPositive);
+      raise SysUtils.EArgumentOutOfRangeException.Create(sNotPositive);
     Result := Result + System.Ln(Elem);
   end;
 end;

collection/648.dat

@@ -12,7 +12,7 @@ begin
   for Elem in A do
   begin
     if Math.Sign(Elem) <> Math.PositiveValue then
-      raise SysUtils.EArgumentOutOfRangeException(sNotPositive);
+      raise SysUtils.EArgumentOutOfRangeException.Create(sNotPositive);
     Result := Result + System.Ln(Elem);
   end;
 end;

collection/649.dat

@@ -12,7 +12,7 @@ begin
   for Elem in A do
   begin
     if Math.Sign(Elem) <> Math.PositiveValue then
-      raise SysUtils.EArgumentOutOfRangeException(sNotPositive);
+      raise SysUtils.EArgumentOutOfRangeException.Create(sNotPositive);
     Result := Result + System.Ln(Elem);
   end;
 end;

collection/675.dat

@@ -0,0 +1,6 @@
+function GeoMean(const A: array of Double): Double; overload;
+begin
+  if System.Length(A) = 0 then
+    raise SysUtils.EArgumentException.Create('Array is empty');
+  Result := System.Exp(SumOfLogs(A) / System.Length(A));
+end;

collection/676.dat

@@ -0,0 +1,6 @@
+function GeoMean(const A: array of Cardinal): Double; overload;
+begin
+  if System.Length(A) = 0 then
+    raise SysUtils.EArgumentException.Create('Array is empty');
+  Result := System.Exp(SumOfLogs(A) / System.Length(A));
+end;

collection/677.dat

@@ -0,0 +1,6 @@
+function GeoMean(const A: array of Integer): Double; overload;
+begin
+  if System.Length(A) = 0 then
+    raise SysUtils.EArgumentException.Create('Array is empty');
+  Result := System.Exp(SumOfLogs(A) / System.Length(A));
+end;