RosettaCodeData/Task/Averages-Arithmetic-mean/Haskell/averages-arithmetic-mean-1.hs

mean :: (Fractional a) => [a] -> a
mean [] = 0
mean xs = sum xs / Data.List.genericLength xs