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

Format

Browse Source
This commit is contained in:
George Thomas 2025-12-02 02:08:23 +00:00
parent 16349685ba
commit ac194d1d61
1 changed files with 27 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
app/Main.hs
View File

@ -35,7 +35,9 @@ puzzle1 =
_ -> Nothing _ -> Nothing
) )
. lines . lines
, part1 = Part { solve = , part1 =
Part
{ solve =
show show
. sum . sum
. flip evalState 50 . flip evalState 50
@ -43,7 +45,9 @@ puzzle1 =
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')
} }
, part2 = Part { solve = , part2 =
Part
{ solve =
show show
. sum . sum
. flip evalState 50 . flip evalState 50