2023-12-12 19:38:48 +01:00
|
|
|
module Misc where
|
|
|
|
|
|
2023-12-28 21:00:03 +01:00
|
|
|
import Data.List (tails)
|
|
|
|
|
|
2023-12-12 19:38:48 +01:00
|
|
|
|
|
|
|
|
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
|
2023-12-28 21:00:03 +01:00
|
|
|
|
|
|
|
|
paired :: [a] -> [(a, a)]
|
|
|
|
|
paired xs = [(x, y) | (x:ys) <- tails xs, y <- ys]
|
