RosettaCodeData/Task/Entropy/11l/entropy.11l

12 lines
213 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
F entropy(source)
DefaultDict[Char, Int] hist
L(c) source
hist[c]++
V r = 0.0
L(v) hist.values()
V c = Float(v) / source.len
r -= c * log2(c)
R r
print(entropy(1223334444))