Anonymous user
Averages/Arithmetic mean: Difference between revisions
Forth
m (Changed libheader to STL) |
(Forth) |
||
Line 76:
(defun mean (list)
(/ (sum-list list) (length list)))
=={{header|Forth}}==
: fmean ( addr n -- f )
dup 0= if 2drop 0e exit then
0e
tuck floats bounds do
i f@ f+
1 floats +loop
0 d>f f/ ;
create test 3e f, 1e f, 4e f, 1e f, 5e f, 9e f,
test 6 fmean f. \ 3.83333333333333
=={{header|Haskell}}==
| |||