RosettaCodeData/Task/Averages-Root-mean-square/Maple/averages-root-mean-square.maple

y := [ seq(1..10) ]:
RMS := proc( x )
    return sqrt( Statistics:-Mean( x ^~ 2 ) );
end proc:
RMS( y );