RosettaCodeData/Task/Averages-Arithmetic-mean/Factor/averages-arithmetic-mean-1.factor

USING: math math.statistics ;

: arithmetic-mean ( seq -- n )
    [ 0 ] [ mean ] if-empty ;