safeCells :: [Coord] -> Bounds -> Region
safeCells coords (minX, maxX, minY, maxY) = M.fromList distanceCells
where cells = [(x, y) | x <- [minX .. maxX], y <- [minY .. maxY] ]
distanceCells = map (\c -> (c, fromIntegral $ sumDistance c coords) ) cells
safeCells :: [Coord] -> Bounds -> Region
safeCells coords (minX, maxX, minY, maxY) = M.fromList distanceCells
where cells = [(x, y) | x <- [minX .. maxX], y <- [minY .. maxY] ]
distanceCells = map (\c -> (c, fromIntegral $ sumDistance c coords) ) cells