September 2017 Update

2017-09-23 10:01:46 +02:00 · 2017-09-23 10:01:46 +02:00 · ba8067c3b7
commit ba8067c3b7
parent bba7bfd280
14570 changed files with 153136 additions and 63871 deletions
--- a/Task/Averages-Root-mean-square/Haskell/averages-root-mean-square-1.hs
+++ b/Task/Averages-Root-mean-square/Haskell/averages-root-mean-square-1.hs
--- a/Task/Averages-Root-mean-square/Haskell/averages-root-mean-square-2.hs
+++ b/Task/Averages-Root-mean-square/Haskell/averages-root-mean-square-2.hs
@ -0,0 +1,7 @@
+import Data.List (genericLength)
+
+rootMeanSquare :: [Double] -> Double
+rootMeanSquare = sqrt . (((/) . foldr ((+) . (^ 2)) 0) <*> genericLength)
+
+main :: IO ()
+main = print $ rootMeanSquare [1 .. 10]