Averages/Arithmetic mean: Difference between revisions

=={{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>