insertion sort by impbox

sort.p8

-- Insertion Sort by @impbox
-- this will sort our closed list by the A* F value.
function sort(array)
    for i=1,#array do
        local j = i
        while j > 1 and array[j-1].f < array[j].f do
            array[j],array[j-1] = array[j-1],array[j]
            j = j - 1
        end
    end
end