AoC in ComputerCraft

local players, marbles = 428, 70825

local scores = {}
for i = 1, players do scores[i] = 0 end

local marble = {v = 0}
marble.l, marble.n = marble, marble

local current = marble
for i = 1, marbles*100 do
    local p = (i-1)%players+1
    if i%23 == 0 then
        scores[p] = scores[p] + i
        for i = 1, 7 do
            current = current.l
        end
        current.l.n, current.n.l = current.n, current.l
        scores[p] = scores[p] + current.v
        current = current.n
    else
        current = current.n
        local new = {n = current.n, l = current, v = i}
        current.n.l = new
        current.n = new
        current = new
    end
end

local max = 0
for i = 1, #scores do
    max = math.max(max, scores[i])
end
print(max)