diff --git a/day11/Commons.hs b/day11/Commons.hs index 26fcd99..3f05be4 100644 --- a/day11/Commons.hs +++ b/day11/Commons.hs @@ -34,7 +34,7 @@ getExpansionArray i expOffset expInc (h: t) getExpansionArrays :: Int -> Image -> (ExpansionArray, ExpansionArray) getExpansionArrays expInc image = let expX = getExpansionArray 1 0 expInc $ sortUniq . map fst $ image expY = getExpansionArray 1 0 expInc $ sortUniq . map snd $ image - in (listArray (1, length expX) expX, listArray (1, length expY) expY) + in (listArray (1, length expX) expX, listArray (1, length expY) expY) getDistancesGalaxy :: Image -> (ExpansionArray, ExpansionArray) -> (Int, Int) -> [Int] getDistancesGalaxy [] _ _ = []