diff --git a/Ganeti/HTools/Utils.hs b/Ganeti/HTools/Utils.hs index 0bed1d7910542a0ff594433e5beed5ce04bc299d..cd55bebf3f9cd2f547c5781ee269a5af5b6b9cf9 100644 --- a/Ganeti/HTools/Utils.hs +++ b/Ganeti/HTools/Utils.hs @@ -77,15 +77,11 @@ fst3 (a, _, _) = a meanValue :: Floating a => [a] -> a meanValue lst = sum lst / fromIntegral (length lst) --- | Squaring function -square :: (Num a) => a -> a -square = (^ 2) - -- | Standard deviation. stdDev :: Floating a => [a] -> a stdDev lst = let mv = meanValue lst - av = sum $ map (square . (\e -> e - mv)) lst + av = foldl' (\accu elem -> let d = elem - mv in accu + d * d) 0.0 lst bv = sqrt (av / fromIntegral (length lst)) in bv