[Pedido] Accents

data = {}

table.find = function(list,value)
    for k,v in next,list do
        if v.chairN == value then
            return true
        end
    end
    return false
end

main = function()
    repeat
        local name,day,chair
        os.execute("cls")
        io.write("Nome do usuario: ")
        name = io.read()
        os.execute("cls")
        local days = {"Quarta-feira","Quinta-feira","Sexta-feira","Sabado","Domingo"}
        io.write("Dia da semana:\n\t1. Quarta\n\t2. Quinta\n\t3. Sexta\n\t4. Sabado\n\t5. Domingo\n")
        repeat
            day = tonumber(io.read())
        until day > 0 and day < 6
        os.execute("cls")
        day = days[day]
        local a = ""
        do
            local i, t, f = 1, 200, 1
            while i <= t do
                local v = i
                if table.find(data,i) then
                    f = f + 1
                    i = i + 1
                end
                a = a .. (i<10 and "00" or i<100 and "0" or "") .. i .. " "
                if i+f%20 == 0 then
                    a = a .. "\n"
                end
                i = i + 1
            end
        end
        io.write("Acentos disponiveis\n\n"..a.."\n\nNumero do acento: ")
        repeat
            chair = tonumber(io.read())
        until chair > 0 and chair < 201
        os.execute("cls")
        local i,j = 1,chair%20
        for k = 1,chair do
            if k%21 == 0 then
                i = i + 1
            end
        end
        data[#data + 1] = {name = name, chair = ("Fileira %d | Coluna %d | Acento %d"):format(i,j,chair), day = day, chairN = chair}
        io.write("Registrar novo cliente? (s/n): ")
        local new = io.read():lower()
    until new == "n"
    os.execute("cls")
    for k,v in next,data do
        local form = "\tNome: %s\n\tAcento: %s\n\tDia: %s\n\n"
        io.write(form:format(v.name,v.chair,v.day))
    end
    os.execute("pause")
end

main()