Lua哈夫曼编码：频率建树的变长压缩

local function freqTable(s)
    local t = {}
    for ch in s:gmatch("%a") do
        t[ch] = (t[ch] or 0) + 1
    end
    return t
end

local f = freqTable("aaabbc")
-- 哈夫曼树给 a=0(1位), b=10(2位), c=11(2位)
local bitsVar = f.a * 1 + f.b * 2 + f.c * 2
local bitsFix = (f.a + f.b + f.c) * 3
local p = getplayerbyname("huff01")
sendmsg(p, 1, bitsVar .. " 位对 " .. bitsFix
    .. " 位，省 "
    .. math.floor((1 - bitsVar / bitsFix) * 100) .. "%")