Lua位1的个数：逐位取余的二进制计数

local function countOnes(n)
    local c = 0
    while n > 0 do
        c = c + n % 2
        n = math.floor(n / 2)
    end
    return c
end

local NIB = {[0]=0, 1, 1, 2, 1, 2, 2, 3, 1, 2, 2, 3, 2, 3, 3, 4}
local function countOnesFast(n)
    local c = 0
    while n > 0 do
        c = c + NIB[n % 16]
        n = math.floor(n / 16)
    end
    return c
end
local p = getplayerbyname("bit01")
sendmsg(p, 1, countOnes(13) .. "/" .. countOnesFast(255))