[
Size: a a a
[
[
IO
avg1 :: [Double] -> Double
avg1 = go 0 0
where
go :: Double -> Double -> [Double] -> Double
go s n [] = s/n
go s n (x:xs) = go (s+x) (n+1) xs
go_r1dg =
sat-only \r [s_s1dk n_s1dl ds_s1dm]
case ds_s1dm of {
[] -> / $fFractionalDouble s_s1dk n_s1dl;
: x_s1do xs_s1dp ->
let {
sat_s1ds =
\u []
let { sat_s1dr = NO_CCS D#! [1.0##];
} in + $fNumDouble n_s1dl sat_s1dr; } in
let { sat_s1dq = \u [] + $fNumDouble s_s1dk x_s1do;
} in go_r1dg sat_s1dq sat_s1ds xs_s1dp;
};
s и nD
D
KV
KV
KV
KV
D