АГ
Size: a a a
АГ
DZ
DZ
DZ
АГ
DZ
λO
АГ
АГ
АГ
АГ
DZ
АГ
PK
PK
AI
AI
AI
mean1 = uncurry (/) . foldl (\(s,n) x -> (s+x, n+1)) (0, 0)
meancore (x:xs) s n = (meancore xs $! (s+x)) $! (n+1)
meancore [] s n = s / n
mean2 l = meancore l 0 0
main = print $ mean1 [1..1E6]
main = print $ mean2 [1..1E6]
PK
AI