Averages/Root mean square: Difference between revisions
m
→{{header|Haskell}}: Reduced the function passed to foldr a little
m (→{{header|Nim}}) |
m (→{{header|Haskell}}: Reduced the function passed to foldr a little) |
||
Line 716:
<lang haskell>main = print $ mean 2 [1 .. 10]</lang>
Or,
<lang haskell>rootMeanSquare :: [Double] -> Double
rootMeanSquare xs = sqrt $ foldr ((+) . (^ 2)) 0 xs / fromIntegral (length xs)
main :: IO ()
| |||