Cumulative standard deviation: Difference between revisions
m
→{{header|Haskell}}
m (→{{header|Haskell}}: Tidying) |
|||
Line 1,907:
<lang Haskell>import Data.List (mapAccumL)
-------------- CUMULATIVE STANDARD DEVIATION -------------
cumulativeStdDevns :: [Float] -> [Float]
cumulativeStdDevns
where
go (s, q) (i, x) =
Line 1,917 ⟶ 1,918:
_q = q + (x ^ 2)
in ((_s, _q), sqrt ((_q / i) - ((_s / i) ^ 2)))
--------------------------- TEST -------------------------
main :: IO ()
|