Исправление Waterlaz, 21.12.16 18:26 (текущая версия) :
Для любителей однострочников :3
avg xs = uncurry (/) $ foldl' (\(!s, !n) x -> (s+x, n+1)) (0, 0) xs
Исходная версия Waterlaz, 21.12.16 18:26: