RosettaCodeData/Task/Averages-Root-mean-square/S-lang/averages-root-mean-square.slang
2016-12-05 22:15:40 +01:00

6 lines
85 B
Text

define rms(arr)
{
return sqrt(sum(sqr(arr)) / length(arr));
}
print(rms([1:10]));