Lua角谷猜想：奇偶分支的步数推演

local function collatz(n)
    local steps = 0
    while n ~= 1 do
        if n % 2 == 0 then
            n = n / 2
        else
            n = 3 * n + 1
        end
        steps = steps + 1
    end
    return steps
end

local function collatzPeak(n)
    local steps, peak = 0, n
    while n ~= 1 do
        if n % 2 == 0 then n = n / 2 else n = 3 * n + 1 end
        steps = steps + 1
        if n > peak then peak = n end
    end
    return steps, peak
end
local p = getplayerbyname("collatz")
local s, pk = collatzPeak(27)
sendmsg(p, 1, s .. " 步，峰值 " .. pk)