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 a307b41ed8
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
day13/Commons.hs
View File

@@ -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