RosettaCodeData/Task/Averages-Root-mean-square/Factor/averages-root-mean-square.factor

: root-mean-square ( seq -- mean )
    [ [ sq ] map-sum ] [ length ] bi / sqrt ;