This commit is contained in:
George Thomas 2025-12-02 02:08:23 +00:00
parent 16349685ba
commit ac194d1d61

View File

@ -35,7 +35,9 @@ puzzle1 =
_ -> Nothing
)
. lines
, part1 = Part { solve =
, part1 =
Part
{ solve =
show
. sum
. flip evalState 50
@ -43,7 +45,9 @@ puzzle1 =
let (_, p') = step i d p
in (Count if p' == 0 then 1 else 0, p')
}
, part2 = Part { solve =
, part2 =
Part
{ solve =
show
. sum
. flip evalState 50