QZ
Size: a a a
QZ
RT
PF
к
QZ
PF
к
PF
PF
PF
QZ
к
PF
QZ
PF
QZ
к
import Data.Foldable (foldr')
f :: [Double] -> Double
f = g . foldr' h (0, 0) where
g (sum, count) = sum / (fromInteger count)
h x (sum, count) = (sum + x, count + 1)
main = print $ f [1, 2, 3]
PF
import Data.Foldable (foldr')
f :: [Double] -> Double
f = g . foldr' h (0, 0) where
g (sum, count) = sum / (fromInteger count)
h x (sum, count) = (sum + x, count + 1)
main = print $ f [1, 2, 3]
PF
QZ