Lua奇偶校验：传输位的个数对齐

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 function parityBit(n)
    return (countOnes(n) + 1) % 2
end
local function check(n, p)
    return (countOnes(n) + p) % 2 == 1
end
local p = getplayerbyname("chk01")
sendmsg(p, 1, "单号 13 校验位 " .. parityBit(13))
sendmsg(p, 1, "复核通过 "
    .. tostring(check(13, parityBit(13))))