Anonymous user
Averages/Arithmetic mean: Difference between revisions
Added PicoLisp
(Added PicoLisp) |
|||
Line 734:
arithmetic_mean = sum(A)/dimension(A,1);
</lang>
=={{header|PicoLisp}}==
<lang PicoLisp>(de mean (Lst)
(if (atom Lst)
0
(/ (apply + Lst) (length Lst)) ) )</lang>
Output:
<pre>: (mean (range 1 1000))
-> 500</pre>
=={{header|Pop11}}==
| |||