Averages/Root mean square: Difference between revisions

== Icon and Unicon ==

==={{header|Icon}}===

<lang Icon>procedure main()

every put(x := [], 1 to 10)

writes("x := [ "); every writes(!x," "); write("]")

write("Quadratic mean:",q := qmean!x)

end</lang>

<lang Icon>procedure qmean(L[]) #: quadratic mean

local m

if *L = 0 then fail

every (m := 0.0) +:= !L^2

return sqrt(m / *L)

end</lang>

==={{header|Unicon}}===

This Icon solution works in Unicon.