From a307b41ed87580a0e8d1db3987ed858b721a01b2 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 +- day13/Commons.hs | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) 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 [] _ _ = [] diff --git a/day13/Commons.hs b/day13/Commons.hs index a07af56..7136b00 100644 --- a/day13/Commons.hs +++ b/day13/Commons.hs @@ -44,7 +44,7 @@ isLineReflected (y1, x1) (y2, x2) p isVerticalReflection :: (Int, Int) -> Pattern -> Bool isVerticalReflection (y, x) p | y <= fst (snd $ bounds p) = isLineReflected (y, x) (y, x + 1) p && isVerticalReflection (y + 1, x) p - | otherwise = True + | otherwise = True isColReflected :: (Int, Int) -> (Int, Int) -> Pattern -> Bool isColReflected (y1, x1) (y2, x2) p @@ -54,7 +54,7 @@ isColReflected (y1, x1) (y2, x2) p isHorizontalReflection :: (Int, Int) -> Pattern -> Bool isHorizontalReflection (y, x) p | x <= snd (snd $ bounds p) = isColReflected (y, x) (y + 1, x) p && isHorizontalReflection (y, x + 1) p - | otherwise = True + | otherwise = True getVerticalReflection :: Int -> Int -> Pattern -> Int getVerticalReflection x ignore p | x >= snd (snd $ bounds p) = 0