Anonymous user
Averages/Arithmetic mean: Difference between revisions
→{{header|Haskell}}
(Logo) |
|||
Line 126:
create test 3e f, 1e f, 4e f, 1e f, 5e f, 9e f,
test 6 fmean f. \ 3.83333333333333
=={{header|Fortran}}==
In ISO Fortran 90 orlater, use SUM intrinsic and implicit element-wise array arithmetic:
REAL, DIMENSION(1000) :: A = (/ (i, i=1, 1000) /)
REAL, POINTER, DIMENSION(:) :: P => A(2:1) ! pointer to zero-length array
REAL :: RESULT, ZRESULT
RESULT = SUM(A*A) ! Multiply array by itself to get squares
RESULT = SUM(A**2) ! Use exponentiation operator to get squares
ZRESULT = SUM(P*P) ! P is zero-length; P*P is valid zero-length array expression; SUM(P*P) == 0.0 as expected
=={{header|Haskell}}==
| |||