Anonymous user
Averages/Arithmetic mean: Difference between revisions
→{{header|OCaml}}
(Added an ActionScript version.) |
|||
Line 593:
mean []
=0</lang>
=={{header|Niue}}==
<lang Niue>
[ [ , len 1 - at ! ] len 3 - times swap , ] 'map ; ( a Lisp like map, to sum the stack )
[ len 'n ; [ + ] 0 n swap-at map n / ] 'avg ;
1 2 3 4 5 avg .
=> 3
3.4 2.3 .01 2.0 2.1 avg .
=> 1.9619999999999997
</lang>
=={{header|OCaml}}==
| |||