From a220dea27279c4a26dc9d80c191ef47f53815cfc Mon Sep 17 00:00:00 2001 From: Neil Smith Date: Mon, 13 Dec 2021 21:03:23 +0000 Subject: [PATCH] Updated link for day 13 --- advent13/Main.hs | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/advent13/Main.hs b/advent13/Main.hs index 69afc49..89aecf4 100644 --- a/advent13/Main.hs +++ b/advent13/Main.hs @@ -1,5 +1,4 @@ --- Writeup at https://work.njae.me.uk/2021/12/09/advent-of-code-2021-day-8/ - +-- Writeup at https://work.njae.me.uk/2021/12/13/advent-of-code-2021-day-13/ import Data.Text () import qualified Data.Text.IO as TIO @@ -22,8 +21,6 @@ data Axis = X | Y data Fold = Fold Axis Int deriving (Eq, Ord, Show) - - main :: IO () main = do text <- TIO.readFile "data/advent13.txt" @@ -66,9 +63,9 @@ showSheet sheet = unlines [ concat [showPoint (V2 x y) | x <- ([0..maxX] :: [Int -- Parse the input file -inputP = (,) <$> sheetP <* (many1 endOfLine) <*> foldsP +inputP = (,) <$> sheetP <* many1 endOfLine <*> foldsP -sheetP = S.fromList <$> (dotP `sepBy` endOfLine) +sheetP = S.fromList <$> dotP `sepBy` endOfLine dotP = V2 <$> decimal <* "," <*> decimal foldsP = foldP `sepBy` endOfLine -- 2.34.1