dunham/newt
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

updates for prelude changes

Browse Source
This commit is contained in:
Steve Dunham
2025-12-29 10:34:47 -08:00
parent f4d1e86319
commit 71b0e3af92
4 changed files with 5 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
aoc2024/Day21.newt.golden
View File

@@ -1,8 +1,8 @@
aoc2024/day21/eg.txt
[(0, (3, 1)), (1, (2, 0)), (2, (2, 1)), (3, (2, 2)), (4, (1, 0)), (5, (1, 1)), (6, (1, 2)), (7, (0, 0)), (8, (0, 1)), (9, (0, 2)), (A, (3, 2))]
[('0', (3, 1)), ('1', (2, 0)), ('2', (2, 1)), ('3', (2, 2)), ('4', (1, 0)), ('5', (1, 1)), ('6', (1, 2)), ('7', (0, 0)), ('8', (0, 1)), ('9', (0, 2)), ('A', (3, 2))]
part1 126384
part2 154115708116294
aoc2024/day21/input.txt
[(0, (3, 1)), (1, (2, 0)), (2, (2, 1)), (3, (2, 2)), (4, (1, 0)), (5, (1, 1)), (6, (1, 2)), (7, (0, 0)), (8, (0, 1)), (9, (0, 2)), (A, (3, 2))]
[('0', (3, 1)), ('1', (2, 0)), ('2', (2, 1)), ('3', (2, 2)), ('4', (1, 0)), ('5', (1, 1)), ('6', (1, 2)), ('7', (0, 0)), ('8', (0, 1)), ('9', (0, 2)), ('A', (3, 2))]
part1 248108
part2 303836969158972

4
aoc2024/Day21monad.newt.golden
View File

@@ -1,8 +1,8 @@
aoc2024/day21/eg.txt
[(0, (3, 1)), (1, (2, 0)), (2, (2, 1)), (3, (2, 2)), (4, (1, 0)), (5, (1, 1)), (6, (1, 2)), (7, (0, 0)), (8, (0, 1)), (9, (0, 2)), (A, (3, 2))]
[('0', (3, 1)), ('1', (2, 0)), ('2', (2, 1)), ('3', (2, 2)), ('4', (1, 0)), ('5', (1, 1)), ('6', (1, 2)), ('7', (0, 0)), ('8', (0, 1)), ('9', (0, 2)), ('A', (3, 2))]
part1 126384
part2 154115708116294
aoc2024/day21/input.txt
[(0, (3, 1)), (1, (2, 0)), (2, (2, 1)), (3, (2, 2)), (4, (1, 0)), (5, (1, 1)), (6, (1, 2)), (7, (0, 0)), (8, (0, 1)), (9, (0, 2)), (A, (3, 2))]
[('0', (3, 1)), ('1', (2, 0)), ('2', (2, 1)), ('3', (2, 2)), ('4', (1, 0)), ('5', (1, 1)), ('6', (1, 2)), ('7', (0, 0)), ('8', (0, 1)), ('9', (0, 2)), ('A', (3, 2))]
part1 248108
part2 303836969158972

4
aoc2024/Day23.newt
View File

@@ -27,10 +27,6 @@ startT s = case unpack s of
('t' :: _) => True
_ => False
isJust : ∀ a. Maybe a → Bool
isJust (Just x) = True
isJust _ = False
checkK3 : Graph → EdgeSet → Edge → Int
checkK3 g es (a,b) =
let cand = fromMaybe Nil $ snd <$> lookupMap b g

1
scripts/aoc
View File

@@ -1,6 +1,7 @@
#!/bin/sh
mkdir -p tmp
echo "Test AoC 2024 solutions"
# FIXME - it turns out there are some stack issues here (including length)
NCC="bun run newt.js"
total=0
failed=0