Averages/Arithmetic mean: Difference between revisions

Content added Content deleted
(→‎{{header|Factor}}: simplification)
Line 332: Line 332:


: arithmetic-mean ( seq -- n )
: arithmetic-mean ( seq -- n )
dup length zero? [ drop 0 ] [ mean ] if ;</lang>
[ 0 ] [ mean ] if-emtpy ;</lang>


Tests:
Tests: