9 lines
239 B
Haskell
9 lines
239 B
Haskell
|
import Data.List
|
||
|
|
|
||
|
|
main = print $ entropy "1223334444"
|
||
|
|
|
||
|
|
entropy :: (Ord a, Floating c) => [a] -> c
|
||
|
|
entropy = sum . map lg . fq . map genericLength . group . sort
|
||
|
|
where lg c = -c * logBase 2 c
|
||
|
|
fq c = let sc = sum c in map (/ sc) c
|