Averages/Root mean square: Difference between revisions
Content added Content deleted
m (→{{header|Nim}}) |
m (→{{header|Haskell}}: Reduced the function passed to foldr a little) |
||
Line 716: | Line 716: | ||
<lang haskell>main = print $ mean 2 [1 .. 10]</lang> |
<lang haskell>main = print $ mean 2 [1 .. 10]</lang> |
||
Or, |
Or, writing a naive '''mean''' of our own, (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 |
<lang haskell>rootMeanSquare :: [Double] -> Double |
||
rootMeanSquare xs = |
rootMeanSquare xs = sqrt $ foldr ((+) . (^ 2)) 0 xs / fromIntegral (length xs) |
||
sqrt (foldr (\x a -> a + (x * x)) 0 xs / fromIntegral (length xs)) |
|||
main :: IO () |
main :: IO () |