From a8f872f85575f9399b36f5d2667c5c5f28341f0c Mon Sep 17 00:00:00 2001 From: RhiobeT Date: Wed, 13 Dec 2023 17:08:51 +0100 Subject: [PATCH] Indent --- day11/Commons.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 [] _ _ = []