Anonymous user
Entropy/Narcissist: Difference between revisions
m
→{{header|Haskell}}
(→{{header|Haskell}}: Changed to binary analyser) |
|||
Line 263:
main = getArgs >>= head >>> BS.readFile >>= BS.unpack >>> entropy >>> print
entropy = sort >>> group >>> map genericLength >>>
where lg c = -c * logBase 2 c
{{out}} In a shell
| |||