patrickaldis/garnet
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove unused field

Browse Source
This commit is contained in:
George Thomas 2025-12-02 11:09:34 +00:00
parent d4ad05ba50
commit 778249c66b
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
app/Main.hs
View File

@ -51,7 +51,6 @@ data Puzzle input = Puzzle
} }
data Part input = Part data Part input = Part
{ solve :: input -> Text { solve :: input -> Text
, expected :: Text
} }
puzzle1 :: Puzzle [(Direction, Inc)] puzzle1 :: Puzzle [(Direction, Inc)]
@ -68,7 +67,6 @@ puzzle1 =
. traverse \(d, i) -> state \p -> . traverse \(d, i) -> state \p ->
let (_, p') = step i d p let (_, p') = step i d p
in (Count if p' == 0 then 1 else 0, p') in (Count if p' == 0 then 1 else 0, p')
, expected = "3"
} }
, part2 = , part2 =
Part Part
@ -86,7 +84,6 @@ puzzle1 =
| p' == 0 -> abs c + 1 | p' == 0 -> abs c + 1
| otherwise -> abs c | otherwise -> abs c
in (c', p') in (c', p')
, expected = "6"
} }
} }
@ -119,7 +116,6 @@ puzzle2 =
. sum . sum
. concatMap . concatMap
(mapMaybe (\n -> guard (isRepetition n) $> n) . uncurry enumFromTo) (mapMaybe (\n -> guard (isRepetition n) $> n) . uncurry enumFromTo)
, expected = "1227775554"
} }
, part2 = error "part 2 incomplete" , part2 = error "part 2 incomplete"
} }