Anonymous user
Cumulative standard deviation: Difference between revisions
m
→{{header|Haskell}}
Line 868:
import Control.Monad.ST
sd :: RealFloat a => [
sd l = sqrt $ sum (map ((^2) . subtract mean) l) / n
where n = genericLength l
mean = sum l / n
sdAccum :: RealFloat a => ST s (
sdAccum = do
accum <- newSTRef []
|