11 lines
181 B
Text
11 lines
181 B
Text
H[x] :=
|
|
{
|
|
N = length[x]
|
|
sum = 0
|
|
for [symbol, count] = countToDict[charList[x]]
|
|
sum = sum + count/N log[count/N, 2]
|
|
|
|
return negate[sum]
|
|
}
|
|
|
|
println[H["1223334444"]]
|