Size: a a a
[
MK
Rec {
average' =
\r [ds length sum]
case ds of {
[] ->
let { sat = \u [] fromIntegral $fIntegralInt $fNumDouble length;
} in / $fFractionalDouble sum sat;
: x xs ->
let { sat = \u [] + $fNumDouble sum x; } in
let {
sat = \u [] let { sat = CCCS I#! [1#]; } in + $fNumInt length sat;
} in average' xs sat sat;
};
end Rec }MK
-O0MK
-O уже раскручивает, даAA
MK
Rec {
$waverage' =
\r [w ww ww1]
case w of {
[] -> case int2Double# [ww] of sat { __DEFAULT -> /## [ww1 sat]; };
: x xs ->
case x of {
D# y ->
case +## [ww1 y] of sat {
__DEFAULT ->
case +# [ww 1#] of sat { __DEFAULT -> $waverage' xs sat sat; };
};
};
};
end Rec }MK
-O0MK
AK
average' :: Fractional a => [a] -> a
average' xs = f 0 0 xs where
f :: Fractional a => a -> a -> [a] -> a
f sum count [] = sum / count
f sum count (x:xs) = f (sum+x) (count+1) xs
AA
MK
AA
MK
MK
AA
MK
MK
MK
ЗП
m = n * (n+1) / (2 * l)
или если 1..n, то l = n
m = n * (n + 1) / (2 * n)
m = n + 1 / 2