module Misc where


withCoords :: [[a]] -> [((Int, Int), a)]
withCoords grid = [((r, c), a) | (r, row) <- zip [0..] grid, (c, a) <- zip [0..] row]

pairs :: [a] -> [(a, a)]
pairs [] = []
pairs xs = zip xs $ tail xs