Averages/Arithmetic mean: Difference between revisions
Content added Content deleted
m (→{{header|Smalltalk}}: fixes and show it) |
(add E example. also lang tag forth) |
||
Line 210: | Line 210: | ||
writefln("multi : ", multi.mean()) ; |
writefln("multi : ", multi.mean()) ; |
||
}</pre> |
}</pre> |
||
=={{header|E}}== |
|||
Slightly generalized to support any object that allows iteration. |
|||
<lang e>def meanOrZero(numbers) { |
|||
var count := 0 |
|||
var sum := 0 |
|||
for x in numbers { |
|||
sum += x |
|||
count += 1 |
|||
} |
|||
return sum / 1.max(count) |
|||
}</lang> |
|||
=={{header|Forth}}== |
=={{header|Forth}}== |
||
<lang forth> : fmean ( addr n -- f ) |
|||
0e |
0e |
||
dup 0= if 2drop exit then |
dup 0= if 2drop exit then |
||
Line 220: | Line 234: | ||
create test 3e f, 1e f, 4e f, 1e f, 5e f, 9e f, |
create test 3e f, 1e f, 4e f, 1e f, 5e f, 9e f, |
||
test 6 fmean f. \ 3.83333333333333 |
test 6 fmean f. \ 3.83333333333333</lang> |
||
=={{header|Fortran}}== |
=={{header|Fortran}}== |