Anonymous user
Averages/Arithmetic mean: Difference between revisions
Adding MUMPS example
(→{{header|Go}}: library change) |
(Adding MUMPS example) |
||
Line 969:
RETURN sum / FLOAT(Samples)
END Average;</lang>
=={{header|MUMPS}}==
<lang MUMPS>MEAN(X)
;X is assumed to be a list of numbers separated by "^"
QUIT:'$DATA(X) "No data"
QUIT:X="" "Empty Set"
NEW S,I
SET S=0,I=1
FOR QUIT:I>$L(X,"^") SET S=S+$P(X,"^",I),I=I+1
QUIT (S/$L(X,"^"))</lang>
<pre>USER>W $$MEAN^ROSETTA
No data
USER>W $$MEAN^ROSETTA("")
Empty Set
USER>
USER>W $$MEAN^ROSETTA("1^6^12^4")
5.75
</pre>
=={{header|Nemerle}}==
| |||