quintenk
/
adventofcode
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

day13: remove unneeded alias

This commit is contained in:
Quinten Kock 2021-12-13 07:10:36 +01:00
parent 9b8e4a0e86
commit bee1ab2eae
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
2021/day13.hs
View File

@ -14,8 +14,8 @@ parseFold :: String -> Fold
parseFold s = if axis == "x" then Horizontal (read line) else Vertical (read line) where [axis,line] = splitOn "=" $ last (words s) parseFold s = if axis == "x" then Horizontal (read line) else Vertical (read line) where [axis,line] = splitOn "=" $ last (words s)
fold :: Fold -> Dot -> Dot fold :: Fold -> Dot -> Dot
fold fold@(Vertical f) (x,y) = (x, if y > f then f - (y-f) else y) fold (Vertical f) (x,y) = (x, if y > f then f - (y-f) else y)
fold fold@(Horizontal f) (x,y) = (if x > f then f - (x-f) else x, y) fold (Horizontal f) (x,y) = (if x > f then f - (x-f) else x, y)
main :: IO () main :: IO ()
main = do main = do