average

gistfile1.hs

avg [] curr n = curr
avg (x:xs) curr n =
    let c' = (x + (curr * n)) / (n + 1)
    in avg xs c' (n + 1)

avg' lst = avg lst 0 0

main =
    print $ avg' ([1, 2, 3, 4, 5] :: [Double])