10 lines
227 B
Text
10 lines
227 B
Text
|
function entropy ($string) {
|
||
|
|
$n = $string.Length
|
||
|
|
$string.ToCharArray() | group | foreach{
|
||
|
|
$p = $_.Count/$n
|
||
|
|
$i = [Math]::Log($p,2)
|
||
|
|
-$p*$i
|
||
|
|
} | measure -Sum | foreach Sum
|
||
|
|
}
|
||
|
|
entropy "1223334444"
|