Anonymous user
Averages/Arithmetic mean: Difference between revisions
Add Seed7 example
(Added Oz.) |
(Add Seed7 example) |
||
Line 838:
> (mean (list 3 1 4 1 5 9))
3 5/6
=={{header|Seed7}}==
<lang seed7>$ include "seed7_05.s7i";
include "float.s7i";
const array float: numVector is [] (1.0, 2.0, 3.0, 4.0, 5.0);
const func float: mean (in array float: numbers) is func
result
var float: result is 0.0;
local
var float: total is 0.0;
var float: num is 0.0;
begin
if length(numbers) <> 0 then
for num range numbers do
total +:= num;
end for;
result := total / flt(length(numbers));
end if;
end func;
const proc: main is func
begin
writeln(mean(numVector));
end func;</lang>
=={{header|Slate}}==
|