Lua回文数：对称数字的逆序等价判定

local function isPalinNum(n)
    if n < 0 or (n % 10 == 0 and n ~= 0) then
        return false
    end
    local m, r = n, 0
    while m > 0 do
        r = r * 10 + m % 10
        m = math.floor(m / 10)
    end
    return r == n
end

local function countPalin(lo, hi)
    local c = 0
    for n = lo, hi do
        if isPalinNum(n) then c = c + 1 end
    end
    return c
end
local p = getplayerbyname("pal01")
sendmsg(p, 1, "100 到 200 有 "
    .. countPalin(100, 200) .. " 个回文数")