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’))