Lua插入区间：有序区间的定位插入

local function insertSeg(segs, newSeg)
    local out = {}
    local i, n = 1, #segs
    while i <= n and segs[i][2] < newSeg[1] do
        out[#out + 1] = segs[i]; i = i + 1
    end
    while i <= n and segs[i][1] <= newSeg[2] do
        newSeg[1] = math.min(newSeg[1], segs[i][1])
        newSeg[2] = math.max(newSeg[2], segs[i][2])
        i = i + 1
    end
    out[#out + 1] = newSeg
    while i <= n do
        out[#out + 1] = segs[i]; i = i + 1
    end
    return out
end

local p = getplayerbyname("segs01")
local result = insertSeg({{1, 3}, {6, 9}}, {2, 5})
for _, seg in ipairs(result) do
    sendmsg(p, 1, seg[1] .. "-" .. seg[2])
end