Averages/Arithmetic mean: Difference between revisions
Content added Content deleted
({{header|Euphoria}}) |
|||
Line 386: | Line 386: | ||
<lang erlang>mean([]) -> 0; |
<lang erlang>mean([]) -> 0; |
||
mean(L) -> lists:sum(L)/length(L).</lang> |
mean(L) -> lists:sum(L)/length(L).</lang> |
||
=={{header|Euphoria}}== |
|||
<lang Euphoria>function mean(sequence s) |
|||
atom sum |
|||
if length(s) == 0 then |
|||
return 0 |
|||
else |
|||
sum = 0 |
|||
for i = 1 to length(s) do |
|||
sum += s[i] |
|||
end for |
|||
return sum/length(s) |
|||
end if |
|||
end function |
|||
sequence test |
|||
test = {1.0, 2.0, 5.0, -5.0, 9.5, 3.14159} |
|||
? mean(test)</lang> |
|||
=={{header|Factor}}== |
=={{header|Factor}}== |