Counting order of inputs (array?)

local warp1 = function()
    print("Yay warp 1!") -- or whatever
    sleep(1)
end

local warp2 = function()
    print("Yay warp 2!")
    sleep(1)
end

local warp3 = function()
    print("Yay warp 3!")
    sleep(1)
end

local recent = {0, 0, 0, 0}
local warps = { -- two dimensional table for the win!
    -- {direction_1, direction_2, direction_3, direction_4, function_to_call}
    {2, 2, 4, 1, ["func"] = warp1}, -- try 1, 4, 2, 2 (so reverse) if it doesn't work at first
    {4, 2, 2, 3, ["func"] = warp2}, -- leave ["func"] as it is, please
    {1, 1, 4, 1, ["func"] = warp3} -- warpX is the NAME of the function here (and that function should include the sleep as well)
}
-- S is 1, N is 2, E is 3 and W is 4, but now everything is 0
-- by the way, in Lua, NULL is "nil"

local push = function(direction)
    -- this pushes the most recent direction to the top if the "recent" table (that's recent[1]),
    -- and the other records go 1 index down, so recent[4] = recent[3]; recent[3] = recent[2], etc.
    for i = #recent - 1, 1, -1 do recent[i + 1] = recent[i] end
    recent[1] = direction
end

local reset = function()
    cblock.setCommand("tp @p 263 63 -149") -- notice the lack of / (so it's not necessary)
    cblock.runCommand()
    recent = {0, 0, 0, 0}
    sleep(1)
end

while true do
    os.pullEvent("redstone") -- waits until something happens on the restone inputs
    if rs.getInput("back") then
        push(1)
    elseif rs.getInput("right") then
        push(2)
    elseif rs.getInput("left") then
        push(3)
    elseif rs.getInput("front") then
        push(4)
    end
    -- used if-elseif-end block here, because this way only one direction will get
    -- into the "recent" table, even if more than one restone input is active
    local resetNeeded = true
    -- resetNeeded stays true if every direction in "recent" are the same
    for i = 1, #recent - 1 do resetNeeded = (recent[i] == recent[i + 1]) and resetNeeded end

    if resetNeeded then
        reset()
    else
        for i = 1, #warps do
            local warpNeeded = true
            for j = 1, #recent do warpNeeded = (recent[j] == warps[i][j]) and warpNeeded end
            if warpNeeded then
                pcall(warps[i]["func"])
                reset() -- I think it's necessary
            end
        end
    end
end