Anonymous user
Averages/Root mean square: Difference between revisions
+Icon+Unicon
No edit summary |
(+Icon+Unicon) |
||
Line 180:
<lang haskell>main = print $ mean 2 [1 .. 10]</lang>
== 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.
=={{header|J}}==
| |||