local function buildMyGrid(xDim, yDim)
        math.randomseed( os.time() )
        gridSize = {xDim,yDim} -- make your grid any dimensions you like, we will refer to this later so make it a global
        grid={}                                         -- a home for our eventual grid
        for i=1, gridSize[1] do -- create an empty table for each column 
                table.insert(grid, {})  
        end
        for y=1, gridSize[2] do
                for x=1,gridSize[1] do 
                        grid[x][y] = math.random(13)  -- generate a random number and put it on a coresponding table cel
                end
        end
end
 
local function printGrid()
        local dashLine -- make this local to the function so we can print it when the loop is done
        print("our generated  table:\r")
        for y=1, gridSize[2] do
        local comp = "| "
        dashLine = " "
        for p=1, gridSize[1] do
                numberToInsert = grid[p][y]
                                dashLine = dashLine .. "---"
        if(numberToInsert < 10)then numberToInsert = "0" .. numberToInsert end
                comp = comp .. numberToInsert .." | "
                                dashLine = dashLine .. "-"
        end
        dashLine = dashLine .. "--"
        print(dashLine)
        print( comp) 
        end
        print(dashLine)
end
 
local function checkNeighbors(cord1, cord2)
        local directions = {{1,0},{-1,0},{0,-1},{0,1}}
        local directionPointer = 1
        for i=1, gridSize[1]+1  do
        if(directionPointer > #directions) then directionPointer=1 end
        directionFetch = directions[directionPointer]
        directionPointer = directionPointer+1
        if( (cord1 + directionFetch[1] >= 1) and (cord1 + directionFetch[1] <= gridSize[1]) and (cord2 + directionFetch[2] >= 1) and (cord2 + directionFetch[2] <= gridSize[2] ))
        then
                if( grid[cord1][cord2]+1 == grid[cord1 + directionFetch[1] ] [cord2 + directionFetch[2] ]) then
                  tt = {cord1 + directionFetch[1],cord2 + directionFetch[2]}
                 return(tt)
                end
        end             
        end
        return(nil)
end
 
local function findSequences()
        print("\rFound Sequences:\r\r")
        for yPos = 1,gridSize[2]  do -- we will do a check for each of the cels on our 3X3 grid
                for xPos = 1,gridSize[1]  do
                        cords = {xPos,yPos} -- the cell we will start looking for sequences from
                        foundSequence = {cords}  -- all searches will start with a single match, the cell itself
                        myCheck = checkNeighbors(xPos, yPos) -- check to the right, left, above and below for a sequential number
                while (myCheck ~= nil) 
                        do -- we will keep checking for a sequence until the last cel checked has none
                                table.insert ( foundSequence, myCheck)  -- lets add it to our found sequences
                                myCheck = checkNeighbors(myCheck[1], myCheck[2]) -- now let see if the is another sequential after this one                             
                end
                                if(#foundSequence > 2) then -- ok, was our final sequence longer than 2? Then lets show it!
                                        print("---")
                                        for i=1, #foundSequence do
                                        print(foundSequence[i][1]..","..foundSequence[i][2])
                                end     
                end
        end     
end
end
 
buildMyGrid(3,3)
printGrid()
findSequences()