Merge branch 'feature/25-add-summing-routines' into develop

Fixes #25

Author: delphidabbler

collection/636.dat

@@ -0,0 +1,8 @@
+function ArraySum(const A: array of Cardinal): Cardinal; overload;
+var
+  Elem: Cardinal;
+begin
+  Result := 0;
+  for Elem in A do
+    Result := Result + Elem;
+end;

collection/637.dat

@@ -0,0 +1,8 @@
+function ArraySum(const A: array of Double): Double; overload;
+var
+  Elem: Double;
+begin
+  Result := 0.0;
+  for Elem in A do
+    Result := Result + Elem;
+end;

collection/638.dat

@@ -0,0 +1,8 @@
+function ArraySum(const A: array of Extended): Extended; overload;
+var
+  Elem: Extended;
+begin
+  Result := 0.0;
+  for Elem in A do
+    Result := Result + Elem;
+end;

collection/639.dat

@@ -0,0 +1,8 @@
+function ArraySum(const A: array of Int64): Int64; overload;
+var
+  Elem: Int64;
+begin
+  Result := 0;
+  for Elem in A do
+    Result := Result + Elem;
+end;

collection/640.dat

@@ -0,0 +1,8 @@
+function ArraySum(const A: array of Integer): Integer; overload;
+var
+  Elem: Integer;
+begin
+  Result := 0;
+  for Elem in A do
+    Result := Result + Elem;
+end;

collection/641.dat

@@ -0,0 +1,8 @@
+function ArraySum(const A: array of Single): Single; overload;
+var
+  Elem: Single;
+begin
+  Result := 0.0;
+  for Elem in A do
+    Result := Result + Elem;
+end;

collection/642.dat

@@ -0,0 +1,8 @@
+function ArraySum(const A: array of UInt64): UInt64; overload;
+var
+  Elem: UInt64;
+begin
+  Result := 0;
+  for Elem in A do
+    Result := Result + Elem;
+end;

collection/643.dat

@@ -0,0 +1,18 @@
+function SumOfLogs(const A: array of Cardinal): Extended; overload;
+{$IFDEF FPC}
+const
+{$ELSE}
+resourcestring
+{$ENDIF}
+  sNotPositive = 'All elements of array A must be > 0';
+var
+  Elem: Cardinal;
+begin
+  Result := 0.0;
+  for Elem in A do
+  begin
+    if Elem = 0 then
+      raise SysUtils.EArgumentOutOfRangeException(sNotPositive);
+    Result := Result + System.Ln(Elem);
+  end;
+end;

collection/644.dat

@@ -0,0 +1,18 @@
+function SumOfLogs(const A: array of Int64): Extended; overload;
+{$IFDEF FPC}
+const
+{$ELSE}
+resourcestring
+{$ENDIF}
+  sNotPositive = 'All elements of array A must be > 0';
+var
+  Elem: Int64;
+begin
+  Result := 0.0;
+  for Elem in A do
+  begin
+    if Elem <= 0 then
+      raise SysUtils.EArgumentOutOfRangeException(sNotPositive);
+    Result := Result + System.Ln(Elem);
+  end;
+end;

collection/645.dat

@@ -0,0 +1,18 @@
+function SumOfLogs(const A: array of Integer): Extended; overload;
+{$IFDEF FPC}
+const
+{$ELSE}
+resourcestring
+{$ENDIF}
+  sNotPositive = 'All elements of array A must be > 0';
+var
+  Elem: Integer;
+begin
+  Result := 0.0;
+  for Elem in A do
+  begin
+    if Elem <= 0 then
+      raise SysUtils.EArgumentOutOfRangeException(sNotPositive);
+    Result := Result + System.Ln(Elem);
+  end;
+end;