8 lines
239 B
Haskell
8 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
|