10 lines
215 B
Haskell
10 lines
215 B
Haskell
|
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
|