Averages/Arithmetic mean: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 1,109: | Line 1,109: | ||
<syntaxhighlight lang="lisp">(let ((x '(1 2 3 4))) |
<syntaxhighlight lang="lisp">(let ((x '(1 2 3 4))) |
||
(calc-eval "vmean($1)" nil (append '(vec) x)))</syntaxhighlight> |
(calc-eval "vmean($1)" nil (append '(vec) x)))</syntaxhighlight> |
||
=={{header|EMal}}== |
|||
<syntaxhighlight lang="emal"> |
|||
fun mean = real by some real values |
|||
real sum |
|||
int count |
|||
for each real value in values |
|||
sum += value |
|||
++count |
|||
end |
|||
return when(count == 0, 0.0, sum / count) |
|||
end |
|||
writeLine(mean()) |
|||
writeLine(mean(3,1,4,1,5,9)) |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
0.0 |
|||
3.8333333333333333333333333333 |
|||
</pre> |
|||
=={{header|Erlang}}== |
=={{header|Erlang}}== |