Lua真因子和数：真因子和的数体判定

local function perfect(n)
    local s = 0
    for i = 1, n do                 -- 试除到自身，白扫n次
        if n % i == 0 then s = s + i end
    end
    return s == 2 * n               -- 含自身的和对比2倍数
end

local function perfect(n)
    local s = 1
    local i = 2
    while i * i <= n do
        if n % i == 0 then
            s = s + i
            if i ~= n / i then s = s + n / i end   -- 成对累加
        end
        i = i + 1
    end
    return s == n
end
sendmsg(actor, 1, "6是真因子和数：" .. tostring(perfect(6))
    .. "，28：" .. tostring(perfect(28)))