Averages/Arithmetic mean: Difference between revisions

add E example. also lang tag forth
m (→‎{{header|Smalltalk}}: fixes and show it)
(add E example. also lang tag forth)
Line 210:
writefln("multi : ", multi.mean()) ;
}</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}}==
<lang forth> : fmean ( addr n -- f )
0e
dup 0= if 2drop exit then
Line 220 ⟶ 234:
create test 3e f, 1e f, 4e f, 1e f, 5e f, 9e f,
test 6 fmean f. \ 3.83333333333333</lang>
 
=={{header|Fortran}}==