mkColCombo :: [(Int, TileColor, Int)] -> Int -> [(Combo, Int)]
mkColCombo l row = map (\(col, t, n) -> (((row, col), t), n)) l
mkColCombo :: [(Int, TileColor, Int)] -> Int -> [(Combo, Int)]
mkColCombo l row = map (\(col, t, n) -> (((row, col), t), n)) l
mkColCombo l row = map (\(col, t, n) -> (((row, col), t), n)) l