Averages/Arithmetic mean: Difference between revisions
Content deleted Content added
m Changed libheader to STL |
Forth |
||
Line 76: | Line 76: | ||
(defun mean (list) |
(defun mean (list) |
||
(/ (sum-list list) (length 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}}== |
=={{header|Haskell}}== |