rhiobet/advent-of-code-2023
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Indent

Browse Source
This commit is contained in:
RhiobeT Chan
2023-12-13 17:08:51 +01:00
parent 03c18bbe91
commit a8f872f855
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
day11/Commons.hs
View File

@@ -34,7 +34,7 @@ getExpansionArray i expOffset expInc (h: t)
getExpansionArrays :: Int -> Image -> (ExpansionArray, ExpansionArray) getExpansionArrays :: Int -> Image -> (ExpansionArray, ExpansionArray)
getExpansionArrays expInc image = let expX = getExpansionArray 1 0 expInc $ sortUniq . map fst $ image getExpansionArrays expInc image = let expX = getExpansionArray 1 0 expInc $ sortUniq . map fst $ image
expY = getExpansionArray 1 0 expInc $ sortUniq . map snd $ 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 :: Image -> (ExpansionArray, ExpansionArray) -> (Int, Int) -> [Int]
getDistancesGalaxy [] _ _ = [] getDistancesGalaxy [] _ _ = []