Sum and product of an array: Difference between revisions

Content added Content deleted

Inline

@@ Line 247: / Line 247: @@
 =={{header|Fortran}}==
-In ISO Fortran 90 and later, use SUM intrinsic:
+In ISO Fortran 90 and later, use SUM and PRODUCT intrinsics:
-  REAL, DIMENSION(1000) :: A = (/ (1.0/(i*i), i=1, 1000) /)
+  INTEGER, DIMENSION(1000) :: A = (/ (i*i, i=1, 1000) /)
-  REAL :: RESULT
+  INTEGER :: SRESULT, PRESULT
-  RESULT = SUM(A);
+  SRESULT = SUM(A);
+  PRESULT = PRODUCT(A);
 =={{header|Groovy}}==