18/11/17 17:21:49.20 ZSsSLaRh.net
ent x = do
let y = map(/sum(x)) x
z = map (\i -> -i*(logBase 2 i)) y
in print $ sum z
18/11/17 17:21:49.20 ZSsSLaRh.net
ent x = do
let y = map(/sum(x)) x
z = map (\i -> -i*(logBase 2 i)) y
in print $ sum z
18/11/17 17:21:49.20 ZSsSLaRh.net
ent x = do
let y = map(/sum(x)) x
z = map (\i -> -i*(logBase 2 i)) y
in print $ sum z