Lua质因数分解：逐除提取的因子链

local function factors(n)
    local out = {}
    for i = 2, n do                 -- 上界用n，白扫大量合数
        while n % i == 0 do
            out[#out + 1] = i
            n = n / i
        end
    end
    return out
end

local function factors(n)
    local out = {}
    local d = 2
    while d * d <= n do
        while n % d == 0 do
            out[#out + 1] = d
            n = n / d               -- 除尽同一质数再换下一个
        end
        d = d + 1
    end
    if n > 1 then out[#out + 1] = n end   -- 剩余即大质因子
    return out
end
sendmsg(actor, 1, "怪物血量360因子数 " .. #factors(360))