Averages/Root mean square: Difference between revisions
→{{header|Haskell}}
m (→{{header|AppleScript}}: rationalised a name) |
|||
Line 714:
Given the <code>mean</code> function defined in [[Averages/Pythagorean means]]:
<lang haskell>main = print $ mean 2 [1 .. 10]</lang>
Or, naively, (but see https://donsbot.wordpress.com/2008/06/04/haskell-as-fast-as-c-working-at-a-high-altitude-for-low-level-performance/):
<lang haskell>rootMeanSquare :: [Double] -> Double
rootMeanSquare xs =
sqrt (foldl (\a x -> a + (x * x)) 0 xs / fromIntegral (length xs))
main :: IO ()
main = print $ rootMeanSquare [1 .. 10]</lang>
{{Out}}
<pre>6.2048368229954285</pre>
=={{header|HicEst}}==
| |||