Browse Source

day18

canon
Hazel Levine 7 months ago
parent
commit
9578db5705
Signed by: hazel GPG Key ID: 1884029A28789A62
  1. 380
      data/day18.txt
  2. 40
      day18.rkt
  3. 42
      lib/common.rkt

380
data/day18.txt

@ -0,0 +1,380 @@
((8 + 6 + 4 + 9 * 2 + 9) * 8 + 2 * (7 + 2 + 4 * 2 + 4) * 2 * 5) * 3
3 * 8 * 2 + 9 * ((6 + 5 * 3) * 7 * 9 * 7 * 7) * (7 * 4 + 5 + 8 * 8)
9 + (5 * 5 + 2 + (5 * 2 + 6 * 9 * 3 + 6) * 4) + 3 * 5
6 + (8 * 5 * 3 + 9 + 3 * 4) + 9 + 3 * 3
(8 + 8 * 4 + 3 + 6) + (4 + 3 * 7 + 7 + 4 + 2) + 7 + (3 + (2 * 8 + 7 + 7) * 7 + 5 * (3 * 2 + 9 + 2 + 8 + 7) * (4 + 2 + 8))
7 + 6 + (9 * 8 * 7 * 3) + (4 + 5 * (2 * 8 * 2 * 5 + 4) + (2 + 8 + 4 * 3 + 3) * (6 * 6 * 7 + 4 * 2 * 7)) * 6 + 9
9 + 7 * ((8 * 3 * 4 * 4 + 8) + 2 * 8 + 6 * 4)
(4 + 6 + (4 * 4 + 2 * 7 + 3) * 7) * 6 * (8 + (7 * 7) + 3)
(8 + 5 * (4 * 5 + 9) * (3 + 3 + 9 * 6) * 8 + 8) * 9
5 * 4 * 8 * (4 * 2 + 2 * 3 + 6 + (3 * 6 * 9 * 9 * 8)) + 4
2 + 4 + ((2 * 3 * 4 * 7 * 3) + 5) + 4
(6 * 9 + 2 * 9) + 4
3 + 9 + 2 + (8 + 2 * 8 * 4 * 9) + 2 * 6
9 + (3 + 6 + (3 * 6 * 5 * 2 + 5)) * (9 * 7 * 4 * 6 * 2) + 4 + (7 + 7 + 8 + 5 * 8) * (4 * (3 * 5 + 2))
(8 * (7 + 4) + 8) * 6
(8 * 3 + (4 * 8 + 9 + 6) * 2) * 4 * (5 * 2 * (9 + 8 * 3 * 2 * 7 + 2) + 3)
(3 + 9 + 2) * 2 + 9 + 4 * 8 * 5
9 + (2 + 7 * 7 * (4 * 3 * 6) * 2) + 6
((6 * 3) + (9 * 9 + 5 + 2) + 4 + 9 + 8 * (8 * 3 + 5 * 7 + 5)) * 4 * 2 * 4 + 3 * 2
9 * 4 + 9 * (4 * 9 + 7) + 2
(3 + 6 + 4) + 4 + 8 + 9 * (6 + 4 * (2 + 6 + 6)) * 6
(5 + 8 * 9 * (7 + 3 + 4 + 2) * 3 + (3 + 4 + 7 + 9)) * 4 + (7 + 6) * 3 + 3
7 * 3 + 8 + 3 * (2 + 2) + ((7 * 2) * 5)
5 * 5 * 7 * (3 * 6 + 9 + 7)
7 * 7 + 4
4 + 9 * (8 + 6) * 2
(8 * 3 * 8 + 3 + 4 + 5) * 4 * 5 * 6 + (2 + 5 * 4 + 6 * 3)
((2 + 4 * 9 + 4 * 9 * 7) + (9 * 5)) + 2 + 7 * (2 * 6) + (4 + 3)
5 * 5 + (2 * 9 * (4 * 2 + 4 + 9) * (5 * 4) * 2 * 4)
(8 + 2 * 3 + 7 * (6 + 9) * 6) + 5 + (4 * 2 * 3 + 8 + 5) + 8 * 6 * 6
6 + (7 * (8 + 7 + 2 * 2) * 8 * 5 * 7 + 3) + (9 + 9) + (6 + 8)
9 + ((5 + 8) * (5 + 5 + 8) + 7)
2 * 7 + (7 + 4 * (9 + 2 * 5 * 2)) + (9 + (7 + 9) * 6 + 8) * 7 + 4
4 * 3 * 9 * 8 * (6 + 8 * 3 * 2 + 7 + 6) * 4
(9 + 6 + 8) * 8 * 5 + ((5 + 4 * 5 * 5) * 6 + 3 + 6 * 6 * 4)
((3 + 7 * 7 * 3) * 9 * (9 * 6 + 7 + 6 * 8 + 3) + 7) + 4 + 3 + 2 + 7
5 + 8 * ((4 + 6 + 8 * 9 * 3 + 9) + (4 * 7 + 5 * 3 * 3) + 9) * 2 * 9
2 * (8 * 5 * 2 * 5) * 6 + (4 * (9 * 3 + 9) * 4 * 6)
4 * 6 + 4 + (5 * 6 + (9 * 3 + 2 + 3 + 6) + 3 + 9 + 7)
(5 + 3 + 7 + 7 + 7) + 7 * 3 + 2 * 4
(3 * 2 * 9) + (4 * 8 * 9)
7 + 4 * 6 * (7 + 6 * 3 + (9 * 7 * 6 + 8 * 6 + 2) * 3 + 9)
8 + 6 + (3 + 7) * (4 * 8 * 2) + 8
6 + (3 * 7 + 4) * 8 + 3 + (3 + 6 * 4 + 3) + (2 + 9 + 9 + 3)
4 * 8 * 7 * (7 * 3 * 7)
(4 + (4 * 4 * 8 * 5) * (4 * 2 + 8 * 7)) * ((5 * 3 * 7 + 2 + 9) + 7) * 4 + 6 + 5 * 9
5 * 7 + 9 + (2 * 9 + 6 + 9 + (6 * 6 + 5 * 4 + 3) + (2 + 7 + 7)) + 9 + (8 + 3 * 3 + 7 * 7 + 6)
9 * 4 * (7 * 8 + 5 * 3) * (2 + 7 * 8 + 4 + 8) * 9
(7 * (2 * 8 + 3 * 3 + 2) * 5) + ((4 * 4 * 3 * 2) * (4 + 3 * 3 + 5 * 8) + (5 + 6) + 4 * 2) + (3 * 3 * 3) * 2
((4 * 7 + 9 * 6 * 7) * (6 + 2) + 4) * 5 + 6 * 4 + 2
2 * 2 * (4 * (6 * 5 + 5 * 6 * 5) + 5 * 6)
2 * 4 + (3 * (6 + 5) + 5 + 2) + 6 * 3
6 * 2 + 9 * (4 + 6 * 7 + 6 * 7 + 7) * 2 + 5
2 * 2 * 9 * (5 * 5 * 9 * 7 * (7 + 5 * 6 * 7 + 7 * 9) + 2)
3 + 7 + 7 + (9 * 4 + 5 + 2) * 2
((7 * 4) * 9 * 4 + 9 + 4 + (8 * 4 + 6 + 2)) + 2 * 5 + 8 + 6 * 5
6 * 7 + (7 * (3 * 4 * 9 * 5 * 7) * 4) + (7 + 8) * 6 * 7
(7 + 4 + 8 + 6 + 3) + 8 * 7 * 4 * 6 + 5
(4 + 4 + 3) * (6 * (7 * 8)) + 9 + (8 * (6 + 2) * 9 + 3)
6 * (7 * 2 + 4 * (5 * 9 + 3) * 3 * (8 * 2 + 6 + 6 * 9)) + 3
8 * 7 + 8 + 3 + (7 + 7 * 3)
((2 + 9 * 5) + 6 + 8) * 8
8 + 2 * (3 * 6 * (7 * 7 * 8) + (9 * 5) * 3 * 4) * 6 + 4
(4 + 7 * (4 * 9) + 4) + 7 * 5 * (7 * (4 * 5 + 2) * 9 + 6 * 7 * (6 * 8)) * 5 + (5 + (3 * 6 + 3 * 3 * 7))
(3 + (3 * 8 + 2 * 3 + 7)) * 5 * 6 * 8 * 8
7 + 5 * (7 + 4 * 5 * 7) + 3 + 9 * 5
((7 + 8 * 3 * 7 * 9) + 5 * 3 + 9 + (9 * 9)) + 6 + (2 + 7 * (7 * 5 + 4 * 7 * 3) + (5 * 7)) * 2 * 4 + 7
6 + 9 * (5 * 7) + 9 * 7
5 + ((8 + 4 * 9 + 3) * (4 + 5 + 6 * 4) * (7 * 2 * 8 + 6) + (8 + 7 * 7 + 9)) * (2 + 8 + 4 + 7) + 5 + 4 + (6 * (6 + 4 * 4))
5 * (9 * (4 + 3 + 4 * 2 + 5 + 5) + (2 * 9 + 3) * 9 + 8) + 6
8 * 6 * 9 + 9 + (3 + 7 + (7 * 7) + (5 + 8 + 5 + 5 * 5)) + 3
4 + 7 * (4 + 9 + 6 + 7 * 9) + (3 * (2 * 8 * 8 + 2 * 7 * 6) * 4 * 6) * 3
2 + 8 + 9 + 5 + 6 * (8 + 3 + (7 + 8 * 2) + 2)
7 + 6 * (6 + 3 * 6 + 2 + 8) * 9 + 9
3 * 6
(9 * 7 * (4 + 6) * 5 + 8) + 4 * 5 + 5 * (2 + 9) + 3
7 * 3 + 3 * 6 * 6 + ((8 + 6 * 4 + 5 * 4 * 7) + (5 * 7) * 6 * (4 + 2 + 8 + 5) + 6 * 3)
7 * 8 + (4 * 3 * 2 * 9) * 6 * (6 * (9 + 7)) + 8
5 + 5 + 6 + 8 + (2 * 5 + 4 * 6 * 7) + (6 + 9 + 8 + 9 + 7 + 7)
2 + (7 * (6 + 9 + 2 * 4)) * 7 * 6
3 + 7 * 3 * (3 + (5 * 6) + 6)
5 * (6 + 2) + 6 * 3 * 7 * 5
2 + ((5 + 6 + 9) + 2 + 6 + 4 + 7) + 2 * 5 + 4 + 6
(6 * 7 * 4 + 2) * 5 * 8 * 3 + 9
4 * (8 * 6 + 2 * (7 * 2 * 9 * 9)) * 8 * 6 + 3
7 * (4 * 9) * 7 * 9 + (4 * 9 * (5 * 7)) * 8
(6 + 6) * 4 + 6
9 * (4 * 6 + (2 * 7) * (4 * 5) + 7) * 7
(8 + (6 + 9 * 8 * 2 * 2)) * 6 + 7 * 9
6 + 7 + 4 * 6 * 2 + (5 + 4 * 3 + (4 * 4 * 8 + 2 * 3 + 9) + (3 * 4 * 9 + 3 * 4) * 2)
(8 + 5 + 7) + 6
8 * (5 * 4 * 5) + 7 + (9 + (9 * 3 + 2 + 2 + 5 + 7) + 2 + 7) * (6 + (5 * 5 + 6 + 6 * 2) + 2) * 9
5 * 2 + 9 + (3 + (3 + 3)) + (4 * 3) * (3 + 3 * (5 + 3 * 5 + 5 * 3))
2 * 8 + 4 * (2 + 6 + (6 * 8 * 8) * 7) + 3
(7 + 8 * 4 + 6) * (9 * 5 + (9 + 6 * 2 + 2) + 6) * 7 + 4
(8 * (3 + 3 * 8)) * (4 * (7 * 6 * 2 + 9 + 8) + (8 * 5 * 5 + 8) * 5) + 8 + 7
(4 + 4) * 7 + 7 + 9 * 2 + 4
6 * 5 * 3 * 4 + ((6 + 7) * 6 + 2) * 2
3 * ((7 + 4 + 6 * 9 + 6 * 8) * 5 * 4)
2 * (9 * 3 * (2 * 8 * 7 + 3 + 8) + 5 + 5) + 8
4 + 8 * 5 * 4 * 3 + (2 * 3 + 8 + 7 * 6)
2 + 3 * ((3 + 4 * 6 + 6 + 8) * 2) * ((3 * 5 * 5) + 7 * (5 * 6 * 3 + 6) * 2 + (4 + 5 * 7) + 2) + 9 * 6
3 * (9 * (9 + 9 * 6 * 8) * (3 + 7 * 5 * 7)) * 7 * 4 + 2 + 9
4 + 6 * 5 + ((3 + 7 + 6 * 6 + 5 + 6) + 4 + 2 * 6 + 4 * 3) * 4 + 2
2 * 9 + 2
4 + 7 * (4 + 3 + (4 + 7) * (4 * 2))
(8 + (7 * 4 * 8 * 2 * 4 * 6) + 6 * 5 + 9 * 3) + 2
4 + 2 * (6 * 6 * (8 + 7 + 2 * 2 + 4 * 6) + 3 * 7)
7 * 9 * 9 * 5
(8 * 2 * (6 * 5 + 6 * 9 * 5 * 3) + 7) + 7 * 2 + 5
6 + (4 * 6 * 5 * 9) + 8 + ((3 * 7 + 5 * 2 * 2 + 5) * (6 * 5 * 9 * 5) * 8)
(3 + (3 * 2) + 8 + 7) * 4
(7 * 3 * 4 * 6 + 7 * 3) * 6 * 4 * 7
3 * (3 + 4 * 4 + 9 * 7 * 8) * 9 * (4 + 3 * 8 + (7 * 7 * 4 * 4 * 2))
9 * 6 + 4 + 6
4 * 7 * ((8 * 3) + 3 * 7) * 7
5 + (4 * 5 * 4 + 8) * 8 + 5 * 2 + 7
3 + ((5 + 7 + 7 * 2) * 4 * 2 * 5 + (3 * 9 * 5 + 7) + (7 + 3)) + ((9 + 4 + 6) * 9 + 3 + 3 + 9 + (2 * 9 + 8))
3 * 6 * 4 * (4 * 7 + 6 + 4) + (4 * 5 + (7 + 6 + 3 + 8 * 5 + 2))
6 + (4 + 5 * 7) * (8 + 2) + 2 + 4 * 8
(6 * (4 + 2) * 2 * 8 + 9) * 5 * 5 * 5 * 2 + 2
3 + 2 + 6 * 8 + 2 * ((3 + 3) + 4)
(4 * 7 + 2 * 9 * (8 + 9 + 2) + (7 * 5 + 4 + 6)) * 9
9 + 4 + (3 + 5 + (6 * 9) + 6) + 8 + 3
3 * (7 + 3 + 9) * (7 * 4 * 4 + 6 + 5) * 2 + 2 * (6 + 9)
3 * ((3 * 9 * 4 + 9) + 9 * (7 + 7 * 5 + 8 + 8 * 7) + (2 * 4 + 7 + 5 + 6) * (2 * 4) * 8) * 5
7 + 3 * (7 + 3 + 8 * 7 * 3 * 5)
8 + ((6 + 2 + 8 * 4) * 8 * 5) + 6 + 7
2 + 8 + 3 * 9 + 8 * 3
(3 + 2 + 5 * 8 + (4 * 7 + 2 * 4) + 3) + 2 * (5 * 7 + 7 * 6) + 2 + 9
2 + 7 + (3 + 6) * 5 * (2 + 5 + 6 * 9)
4 * 4 + 5
(9 + 3) * 3 + 9 * 3
(9 + 8 + 2) * (9 * (4 + 3 + 9 + 3))
7 * 7 + 8 * 9 * 2
9 + 3 * 7 + 8 * 9
(8 + 9) + 2
3 * ((6 * 6 * 9) + 5 + 2 * 8 * 6 + (5 * 2 * 5 * 6 * 4)) + 5
5 * ((8 * 5) * 8 + 4 * (9 + 6 * 6 * 4 + 9)) + (4 * 6 * 5 + 5 * 3) + 3 * 2 + 3
6 * (8 * 9) + ((7 * 4 * 7 + 6 * 8 + 3) * (2 + 9 + 7) + 5 + 6) * 5 + 9 * 7
5 + 9 * 3 * 3 * (4 * 4)
9 * ((8 + 5 + 2) + (4 + 4) + 8) + ((8 + 6 * 9 * 2 + 2 + 6) * 9 * 8 * 7 * 9) + 9 + 3 * 7
8 * 2 + 3 * 4 + ((4 + 4 * 4 + 6 * 8 * 5) + (8 * 2 + 6 + 4))
7 + 5 + 7 + (3 * (9 * 7 * 8) * 6 * 3 + (5 + 8 * 8 + 2)) * (9 * 7 * (4 * 6 + 4 + 7 + 7 * 7) * (5 * 3 + 8) + 7) * 6
(2 + (6 * 2 + 5 * 8 * 2) * 7 + (2 * 8)) * 9 * (2 * 5)
3 * (5 * 4 * 9 * 7) + 2 + 2 * 9 * (6 + 8 * 6 * 5 + 4 * 2)
(2 * (6 + 9 * 4) * 8 * 8 + 5 + (7 * 9)) + 4 * 9 * 9
3 + (3 * 3 + 2)
7 + 9 * 2 + (5 * 3 + 8 + (2 + 5 + 9 * 7 * 5))
2 * (8 * 4 * 7 + 2 * 6 * 8)
3 * 9 * (4 * (3 * 9 + 3 * 7 + 9 + 8)) * 8 * (2 * 6)
6 * 7
9 * 5 + (7 * 4 * 2 + (7 * 9 * 9 + 9 * 8) * 8 * 5) * 8
((2 + 2 * 8) + 8 * (9 * 9 + 7 * 7 + 4 + 5) + 3) + 4
7 + 7 + 5 * (4 + 3 * 9) + 7 + 8
4 * 4 + (4 * 5 + 7 * 9 * 3) * 5
(9 * 4 * 7 * (7 + 7 + 6) * 3 + (9 + 4 + 5 * 8 * 4)) + 2 * 5 + ((6 + 6 + 9 * 3) * 8 * 2)
8 + (8 + 3 * (3 + 4) + 8) + 4
((3 * 8 * 3 + 8 * 2) * 9 + 3 * 5) * 4 * (5 * 4 + 3 * 3 + 4) + 2 + 9
5 * 6 + 4 * 6
(4 * 7) + 2 * (9 + (9 * 7 + 2 + 6) + 6) + 4
8 * (9 + 7 * 9) + 4 + 2 + 6 * 7
(8 + 9 * (3 + 7 + 2 * 6 * 7 + 6) + (3 * 3 + 4 + 8 * 4) * 3 * 3) * 5 * 7 + 7 + (8 + 7)
6 * (8 + 8 * 5 * (5 * 5 + 3 * 9 + 8) + 6) + (7 + 8 * 7)
(2 * (5 + 6 + 5) * 9 + (6 * 5 + 4) * 3 + 8) * 4 * (6 + 8 * 4 + 5) + 6 + 9 * 9
(9 + 5 * 5) * 2 * 5 + 8
3 + ((6 * 9 * 7 + 4 * 2 * 6) + 5 * (8 * 3 * 3 + 6))
6 * 6 + (5 * 6)
(6 * (8 * 9 + 3) * (2 + 7) + 5) * 7 * 8 * 8 * 2 * 9
2 + 5 + (5 * 4 * 6) + (5 + 2)
8 + 9 + 8 * 9 + (8 * 8 * 3 + 7)
7 * 7 + 9 * ((9 + 9) * (4 + 5 * 7 * 7 + 5) + 4) * 3 + (5 * (2 * 5 * 8 + 2) * 2 + 6 + 2)
8 * ((7 * 8) * 2 + 3 + 3 * 6)
4 + (2 + 9) + 9 * (9 * 7 + 3 + 6 * 6 * 4) * 8
5 * 5 * 6 * 3 * ((7 + 8 + 6 + 7) + 2 * 8 + 5 + 6 * 9)
(9 * 4) + 2 * 2 * (2 * 9 * 8 + 5)
8 * ((5 * 5 + 9 + 6 * 4 + 3) + 7 + 9 * 4 + (8 + 4 + 8 + 6 + 9) + 2) + 2 + 8
9 * 9 * (3 * 3 * 5) * 7
6 + (4 * 3) * 2 + 3 * ((8 + 6 * 9) * (7 * 7))
6 * 8 + 2 * 6 + 8 + 2
((4 + 4 * 2 * 5 * 9 * 6) + 4) * ((2 + 7) + 3 + 4) + 4 + (8 * (5 * 8 + 2 + 8)) * 5 + 3
((9 + 4 + 9) * 2 + 3 * 5 + 5 * 6) + 8
8 * (4 * (5 * 2 + 4 * 4 * 5) * 9 * 4 * 9) * (8 + (4 * 4 + 7 * 9 + 8) + 8 + 4) * (9 + 9) + 3
(5 + (6 * 6 * 7 * 4 + 7) * 4 * 3) * 3
(6 * 5) + 5 + 8 * (7 + 2 + 6 + 4 * 8) + 2
4 * 8 * (7 + 7 * (7 * 6) * 2) * 4 * 3 * ((9 * 2 * 2 * 6 * 2) + 5 + 9 + 8)
(9 + 9 * 4 * 9 * 9 + 2) * 3 + 2
3 + (3 * 7 + 9 * 2) + (5 + (5 + 8) + 6)
8 + 3 * (7 + (8 * 9) * 4 + 8 + 6)
5 + 5 + (8 + 6) + (5 + 9 + 8) + 7 + (9 * (6 * 4 + 7 + 9 + 3) + 4)
7 * 5 + 3
4 + 6 * (6 * 3 + (5 * 2 + 6 + 2) * 2)
9 + (3 + 2 + 4 + 5 * 7)
(7 + 5 * 6) + (3 + 6) * (5 * 7 * 8 + 5 * 7 + 4) + 3
6 + 9 + (5 + 7 * 2)
6 + (9 + 6) + 4 + (6 + 3 + (6 * 5 + 2 * 9 + 4) * 3 + 3 * 7) * (6 + (6 * 2 * 7))
4 + (2 * 4 + 4 + (7 + 7 + 4 * 7 + 9 * 5)) + (8 * 3) + 9
(9 + (8 * 5 * 5 * 2 + 4) + 6 * 2 * 9) * 9 + 4 * 6 + 7 + 2
8 + 3 + 9 * (8 * 4 * (8 + 6) + 7 * 2 + 8)
8 * 8 + 4 + (3 * (8 + 7) + 5 + 3 * (2 * 4 * 8 + 2) * (9 + 5 + 3 * 9 + 7 + 9)) + 9
7 * (3 * 4) + 2 * ((5 + 3 + 6 * 2 + 9 * 2) + 2 * 4 + 6 + 7 + 3) + 3 + 2
(8 * 8 * 4 + 3 * (2 + 8 * 3 * 5 * 7) + 4) * 9 + 8
2 * (7 * 9 * (4 + 4 + 7 * 7 + 6 * 7)) + (7 + 9 + 8 + 4 * 2 * 9) + 7 * 8
(4 + 5 * (3 + 6 * 8 + 7 * 7) * 8 + 2) * 5
9 * 5 * 2 + (7 + (9 * 8 * 3 + 9 + 4) * 9)
6 + 2 + 2 + 6 * (2 + 5 + 9 + 5) + 3
4 * 2 * (4 + (6 * 4) + 4 + 6 + 5) + 2 + 3 + 4
8 * (9 + 7) + 2 + 4
((7 * 9 + 6 * 5) * 5 + 9) + 3 * 6 + (2 + 5) + (7 + (7 + 4 * 3 + 7) + 2 + (5 * 4) + 8)
(8 + 2 + 3) * (8 + 9 + (3 + 6) + 7) + 8 + 6 + (9 * 7 * 6 * (5 * 6 + 6 * 2 * 2 + 9) + 2 + 5) + 6
6 + (4 * (4 + 6 * 3 * 5 + 7) * 7)
7 + (3 + 3 + 9 * (9 * 9) * 8) * 6 * 3
4 * 2 + (4 * 2 * (3 + 9 * 7 + 3 + 9) + 6 + 8) * 8 + 5 + 7
4 + (9 + 2 * 7 + 7 + 2) * 4 + 6 + 3 * 5
3 * (9 + 7 * 7 * 6)
6 + (7 * 3 + 4) * (7 + 7 * 5 + (8 * 6))
8 * (2 * 7) * 8 + 2 * 8
5 + (8 * 6)
2 * 6 * (9 * 7 + 8) * 7 + (4 * 2 + (9 * 4 + 2 + 2 + 5) * 6)
(3 * 6 * 9 + 9 + 8 + 2) + 7
((3 + 8) + 6) + 6
((2 + 4 * 4) * 6) + (5 + (9 * 2 + 4 * 5 + 8 + 4) * (4 + 4 + 8 * 8)) * 6
3 * 3 * (7 * 2 + 9 * 2 + 8 + (4 + 4))
(5 + 9 + 5 + (3 + 5 * 5)) * 5 + (9 * (6 + 8 + 6) * 6 * 7)
2 + (4 * 7 * 3) + 9 * 5
8 + 9 + 3 * 6 + 6 + (4 + 8 + (7 * 3 * 7 * 6 * 7 * 7) + 9 * 2)
2 + 5 + (4 + (6 * 6 * 9) + 4 * 3) * 2
(5 + 6 + 6 * 8 * 9) + 9
5 * 7 + 4 * 9 + 4
(3 + 4 + (8 + 9 + 4 * 3) + (4 * 3) + (9 + 6 * 4 * 6 * 6 + 7) + 2) + (4 + 4 * 9 * 4 * 3) + 2 * 9
7 * 3 * 8
(3 + (3 * 8 * 2 + 5) + (3 + 3 * 6 + 7 * 8) + 9 + 6) * 5 * 6 * 2
8 + 9 + (5 * 3) * (6 + 6 + 7 * 2) * 8
5 + 2 + (8 * 4 + 3 * (6 + 6 * 5 * 3 * 6) + 6) * ((8 + 3 + 6 * 6) * (3 * 2 * 3 * 6)) * 5
(8 + 7) * 3 + (7 * 8 + 4 * 5 + 4) + (9 + 9 + 3 + (9 * 8 + 9) * 6 * 9)
(4 * (3 * 6) + 8) * (6 * 2)
(5 + 5) * 7 + 7 + (4 + 9 * 4 + 2) * 9
6 * 2 * (5 + 2 * (4 * 8 + 6 + 5 + 3) + 6 + 2 + (5 + 9 + 9 * 7 + 6)) * 4 * (7 + 6 * 9 * 8 + 2 + 4) * 3
(6 * (5 + 4 + 8 * 6 * 7 + 5) + 5 + 7 + 9 * 2) + 2 + (3 * (7 * 2 + 8) * 5 + 8 * 5 * 6) + (2 + (4 + 2 * 4 * 3))
6 + 3 + (4 * 2 * 3 * 6 * 3 + 9) * 6 + 8
5 * 5 * (4 * 6 * 8 + (2 * 3 * 7 + 4 * 6)) * 7 + 4 * 4
4 + 6 + 3 * 2 * (4 + 4 * 6 + 5 * 3) + 5
3 + 4 + 4 * 3 + 6 + (3 * 4 * 3)
8 + 7 + (6 + 3 * 3 + 2 * (8 + 7 * 2 + 6 + 8) + 5) + 2 + (8 * 7 + 2) * 2
7 * 7 + 6 + 9 * 7 * 6
6 + 7 + ((5 + 7 * 5 * 9) * 5 + 3) + 6
6 + (6 + 3 + 6) * 7 * (6 + 8 * 7 + 9 + 4) * ((4 + 9 + 5 + 9) + 2 + 9 * 7 * 6 + 7) + 7
(3 + 9 * 7 * 3) * 6 + 6 * 2
5 * 7 + (6 + 7 * 5 * 5 * (9 + 9 * 2 + 8 * 5 * 6)) * 8 * 8 + (9 * (8 * 3 * 7 * 6 + 2 + 2) * 9 + 6 * 4)
3 + ((9 * 5 * 6) + 2 + (9 + 8 * 4 + 9 + 6) + 9 * 8 + 5) + 4 + (3 + 8 * (7 * 5 * 7 * 2 + 5) * (7 + 5 * 5 + 6 * 5 + 5) * 9)
(9 + 2) * 8 * 3 + (3 + 8)
7 + (6 + 2 + 8 * 8 * 3) + 6 + 5 + 6
(4 + 9 + 4 * 4 + 4) * 9 + ((8 + 9) * 6 * (4 * 5) + (8 + 8 + 7 + 2 * 8) * (5 + 7 + 8)) + 9 + (6 + 6 * 9 + 8 + 5 + 5)
(9 + 9 * 7 + (8 * 4 + 5)) * (2 + 3 * 5 + (4 + 4)) * (9 * (5 * 6 * 2 + 7 * 3 + 5) * 7 + (3 + 9 + 3) * (4 + 2 * 9 * 6 + 5)) + (3 * 6) + 5 + (5 * 4 + 6 + 8)
((2 + 5 + 7 * 9) + 7 * 7 + 3 * 6) + (9 + 6 + (7 * 9 + 8 * 7) + 6 * 4 + 7)
9 + (4 * 6 * 2 * (5 + 9 + 8 + 3 + 2 * 6))
6 * 5 * (5 * 9 + 5 + 3) + 9
(4 + 6 + 3 + 4) * (9 * 5) * 9 * 4 * 3 * (3 * 8 * 6 + 4 + 8)
((3 + 2 + 2 * 9 + 3 + 8) * 3 + 5 * 3 + 7 * 5) + 5 * 5 + ((9 * 9) + 5 + 2 * 7) + 5
9 * 7 * ((6 + 3 * 8) + 8) * 5 * 2 * 2
(9 + 2 * 5 + (9 + 6 + 3 + 2 * 7 + 9) + (3 * 5 + 7) + 5) + (9 + 6 * 9 * 3) + (4 + 5 + 8 * 2) * 3 + (6 * 4 + (8 * 2 + 5 * 2 + 7) * 2 + 7) * 3
5 * 9 + 6 * (3 + 3)
4 * 8 * 9 * 5 * 3
9 * 8 * 6 * 3 * ((2 * 4 * 6 + 8 + 7) + (6 * 8) * 3 * 5) * 5
2 + 2 * (7 * 4 * 2 * 3)
8 * (6 + 8 * 7) * 3 + 2 + 5 * ((6 * 7 * 7 * 7) * (5 + 6 + 5) * 6)
5 + (6 * 6 * 7 * 3) + 5 + 7
(5 + (6 * 8 * 5 + 6)) + 7 * 4 + 2 * 2 + 4
2 + (4 * (4 + 5 * 9 * 9) * 3)
9 + (6 + 2 * (9 + 7 * 4) + 6) * 7
6 + 9 * ((4 * 6 * 9 + 5) + 2 + (7 * 7 * 7 * 6 + 6) + (2 * 5 * 6 + 8 + 7 * 5) + 4) * 2
(9 + (7 + 5 * 4 + 3)) + 8 + 7 + 9 * 5
((6 * 2 * 4) * (4 + 7 * 2 * 6 + 7 + 3)) + 9 + 3 * 5 * 7 + 4
((3 * 8 + 8 + 8 * 9) + 4) * 7 * 8 * (9 * 6 * 3 + (8 + 7 * 9 * 9 * 7 * 6) + (6 * 2 * 4 * 9 + 9 * 9)) * 5 + 9
4 + 8 * 6 + (7 * 2 + (6 + 3 + 5 * 2 + 2) * 2 * 5) * 7 * 2
(4 + (8 + 5 + 3 + 7 + 7 * 5) * 8) + (4 + 6 + 7 * (3 * 8 * 6) * (4 * 4))
(6 + 2 + 2 * (7 * 3 + 9 * 7 + 2)) + 3 + 5 + (4 + 9 * 8 * 7) * 3 * (7 * 4 * 2 + 7)
8 * 8
(8 * 5 + (3 + 2) * 9 + 9 + 3) * 5 + 4
(4 * 6 + 3) * 5 + (9 * 5 * 7 + 5 * (7 + 6 * 4 + 6) + 4)
(9 + 3 + (8 * 2) * 7 + 7) * 4 * 6 + 7
(6 * 3 + (2 * 6 + 2) + (7 + 7 + 3 * 7 * 6) + 6 + 2) + (6 * 3 * 5)
6 * 5 * (2 * 5 + 9 * (4 + 2 * 6 * 4 + 5 * 2) + 5) + 6 + (4 + (3 + 2 + 2 * 5 * 2) + 8 + 5 * 2 + 5)
((5 + 9 + 2 + 7 + 4 * 9) * 9 * 3 + 8 + 2 * 8) + ((7 * 5 + 7 + 3 * 7) * 8 + 2) + 5 + (5 + 8 + 4 + 6) * (5 + 8 + 2)
5 + 3 + (9 + 4 + 6) * 8 + 8
2 + (2 * 4 + 7 + 9) * (7 * 4 * (2 * 5 + 2) + 3) + 8 * 6
7 + (2 + (5 * 7 + 8 * 4 * 5) * 9 + 8 * (3 * 3)) * (6 + 6 * 2 + 4) * 9
((9 * 5 * 7 + 4 + 8 + 9) + 9 + 4 + (8 + 4 * 8 + 6 * 7 * 3)) * 2
5 + (5 + 6 + 7 + 5 * 8 * 6) + 5
(4 * 5 + 8 + 5) * (8 + 2 + 8 + 4 + 4) + 6
5 + 4 * 8 + 7 + 4 * 4
3 * 7 + 3 + 9 * 7 * (6 * 2 * 8 + (2 + 2 + 4))
8 + 9 + 4 + (8 + 7 + 5 + (6 + 8 + 4 + 4 * 3 * 6) * (3 + 3 * 4 * 5) * 9)
4 + (4 + 9 * 3 * (4 + 6 * 5 * 8 * 7)) + ((8 + 6 * 2) + 8 + 5 + 8) * ((2 + 9 + 8 * 5 + 3) + 5 + 5) * 3
3 * (7 + 5 + 3 + 7 * 5) + (7 + 6 + 2 * 8 + (3 * 7 + 2) + 6)
(2 + 6 + 9) * 9 * 3
8 + (2 + 2) + 2
5 + (7 * 2 * 6 + 3) + 4 + 7 * 7 + (9 * 5 * 8 * (3 * 9 * 2 * 4 + 6 + 2) + 3 * 4)
9 * 6 * 8 + (3 + 9) * 6 + 4
2 * 3 * 5 + 6 + 6 * (4 * 9 + 4 * 6)
8 * 9 * 9 * ((4 + 7 + 5 + 7 + 2 + 7) * 2 + 2 + (3 + 8 + 6 * 5) * 6 * 6) + 7 + 4
(8 * 5 * 7) + (5 + 6) * 7 * (4 + 7 * (9 * 4 + 5 * 8 * 9) + 6) + 3 * 7
3 + 2 + 4 + 7 + 3
(8 + 7 + 2 * (4 * 7 + 8 + 2 * 6)) * 2 + ((6 * 5 * 5 + 8 * 7 + 3) * (4 * 5) + 3 + 6 + 6 * 8) + 7 * 3 * 5
2 * (5 * (3 * 4)) + 6 * 8 + 8
(7 + 9 + 5) + 8 * 3 + (6 + 9 * 3 + 4 + 8) * 8 * 3
7 * 9 * (3 * (7 * 4 + 9 * 8 + 9) * 7) + (7 * 7 + 5)
5 * 2 + 8 + 7
(7 + 3 * 8) + (3 + 6)
9 + 5 * 6 * 9
((5 + 5 + 7 + 6 + 8) + 5 * 7 + 8 + 5 * 8) + 6 + 6 * (9 * 4 + 8 + 7) + 8 * 2
((4 * 9 * 3 * 5 + 5) + (4 + 4 + 2) * 6 + 5 * 9 * 8) + 8 * 2 + 8 * 6 * 9
8 * ((3 + 2 + 7) * 9) + 4 * 2 + 3 * 2
3 + 9 + 6 + 2 + ((9 + 5 + 3 * 3) + 9 + 8 * 2 * 8 * (3 * 6 + 9 + 3))
4 * (7 + 8 * 4) * 7 + 7 + 8
2 * 2 + (3 * 8 + (7 * 5) + 8 * (9 + 5)) + 3 + 9 * (5 * 9 + 9 + 4 + 8)
3 * 8 + ((2 + 6 + 2 + 9 * 3 + 3) * (3 * 9 * 4 + 6 + 4) + (4 + 9) + 2 * 8 + (4 + 6 + 2 * 7 * 7))
((8 * 9 + 6 + 2 + 5 * 7) + 3 * 6 + (8 + 8) + (9 * 6 + 6) * 7) + ((6 * 9 + 8 + 8 + 7 * 9) + 5 + 4 * 4 + 2 + 7) * 8
5 * 4 * 7 + ((3 * 8 + 2) * (3 + 4 * 3) + 5) * 5 * 5
4 + 7 * 5 + 6 + 4 * (2 * 9)
(2 * 3 + 9 * 6 * 9 + 2) + 3 * ((5 * 9) * 5 * 8 + 9) + 9 * 8
((9 * 7 * 7 * 2) + 8 + 3 + (6 + 2 * 4 * 3)) + 6 + 6 + 9 + 8
8 + 3 + (5 * 5 * 3 * 8 + 4 + 4) * (8 + 7 * 8 * 6 + (2 * 4 * 6 + 5 * 6 * 4) * 9) * (3 + 4)
9 + 3 * ((2 + 8 * 5 + 7 + 8) + (5 + 3 + 5) + 6 * 6 * 4) * (7 + 5 * (5 * 9 + 3 + 6) * 2) + 9
4 * (8 + (9 * 2 + 2 + 8) * 4 + 7 + 8 * 4)
7 + 4 * (7 * (7 + 6) + (2 + 9) + (2 + 2 + 9 * 9) * 2) + 8 * 6
(5 + (3 * 4 * 2 * 7 + 4)) + 5 * (7 + 8 * 5 + 5) * 4 + 9 * 4
((4 * 7 * 3 * 4 * 2 * 2) * (6 * 3 + 4) + 4 + 6) * 4
9 * (3 * (9 + 5)) * 5 + (4 * (6 * 4 + 4))
(9 + 4 + 5 + (5 * 2 + 4) * 3) * 2 * (9 + 7 * 6 + 7) + 7 + 6
9 * ((8 + 9 * 7) * 6 * 6 * 4) + 7
6 + 8 + ((3 + 4 + 2 + 3 * 8 * 5) + 8 + 7) + 6 * 6 * 8
2 + 9 + 7 * 7 + ((6 + 8) * (6 * 5 * 5 + 8 + 8 + 5) * 8 + (2 + 7 + 8 + 2 + 9) + (8 + 6 + 7 + 5 + 9 + 8))
7 + (2 + 4 * 5 + (9 * 2 * 8 + 4)) + 2
3 + 5 * 3 + (8 + 6 * 7 + 7 + 2) + (2 + 2) * 9
(5 + 7 * 4 * 5) * 8 + 2 * 5 * 9 + 4
((7 + 6 + 8 * 9 * 3 + 8) * 8 + (2 + 4 + 7) + 3 * 2) * 5
9 * (7 + 9 * (7 * 7 * 5) + (2 * 2 * 5) + 4) + 4 * 9 + 6 * 6
((7 * 7 * 2 + 4 + 5) + (3 + 3 * 8) * 9 + 7 * (5 + 6 + 3)) * 8
9 * 8 * 7 * 9 + (3 + (4 + 2) * 8)
((9 + 7) * (9 + 5 + 7) * (5 * 9) * 5) * 6 * 8 * 6 + 7
3 * 6 * 6 + ((7 * 3 + 8 * 7 * 6 + 2) * 5 * 2 + (6 + 4) * 9)
3 * 5 + (8 * 8 + 7 + 9) + ((5 + 5 + 7) * 3) * 7
7 + (6 + 5) * 2 + ((2 * 9 * 6 * 4) * (4 + 6 * 3 * 4) + 8 + 2 * 2 * 5) * 6 + 6
(9 * 2 + 5 * 3) * 7 + (3 * 5 + 6) + 2 + 7
2 * 3 + 7 * 5 + 6 * 5
9 + ((4 + 4 * 4 * 6) + 5 * 8) * (2 + 9)
(9 + 6 * 3 * 8) * 7 * 4
7 + 3 + (5 + (7 + 2 * 8 + 3)) + (4 * 5 + (7 + 2) + 2)
(4 + 2 * 6) * 2 * (7 + 5 * 8) + 3
3 * 7 * (2 + 2 + 4 + (2 + 2 + 6 * 6 * 3) + 8 * 6)
4 * 2 + 4 * (3 + 7 * 8 + (6 + 4 + 5 + 4 + 7 + 9)) + 3
5 + ((8 + 4 * 5 * 6) + 4 * (8 * 6 * 7 + 5 * 3) + 5 * 7)
8 + (2 * (6 + 9 * 7 + 8) * (9 * 2 * 7 * 5 * 8) + 5 + 4) + 9
8 * (9 + 7 * (8 + 8) * 5 * 2) * (5 + 7 * 6 * 6 * 8 * (7 + 6 * 6)) + 3
3 * 9 * (7 * (8 * 9 * 9) + 3 * 3 * 9 + (5 * 9 + 7 + 9 * 4)) + 9
4 + 7
3 + (2 * 2 + (7 * 3) * 2) + 7 + 4 + (2 + 6 * 4 + 9 * 4 * 5)
2 * 8 + ((7 + 3 * 3 + 4) * 8 * 8 + 8 + (2 + 3 * 2 + 2 + 5) * 2) + 7 + ((9 * 5 * 2) * 7 * 8) * (4 * 7 * 8)
2 * 9 * (3 + 5 * 3) * 2 * 9 * 2
(6 * 7 * 4) * 4 + 8 + (4 * 8)
7 + 2 + (9 * 4 + 5 * 6 * 7)
6 * (6 * (9 * 7 + 4 + 8 * 7) * 2 * 8 + 6) * 7
4 * 4 + 2 + 4 * (9 * 2) + 2
2 + 7 + 6 + 3 * ((3 + 5 * 4 * 4) + 6 + 8 * 9)
7 + 4 * (3 + 4 + (3 * 5 + 4 * 2)) + 9 + (5 * 6)
(4 + 7 + 3 + (4 * 8 * 8 * 7 * 7 * 6)) * (2 * 7 * 8 + 4 * 8) + (9 + 6 * (9 * 8 * 5 + 5) + 2) + 8 * 7 * 6
(2 + 3 * 7) + (7 + 6 * 5) + 5 * (6 * (4 * 4 * 4 * 6) * 4 * (6 * 7) + 6) + 9 * 7
6 + 6 + 2 * (6 + 7 + (9 + 9 + 9 * 7 + 7 + 7) + 7 * 5)
((2 * 2 + 2 + 4 + 8 + 8) + 3 + 6 + (2 + 8 + 2 * 5 * 2)) + 7 * 7 * 2 + 6
4 + ((4 * 8 * 9) * 7 + (2 * 2 + 7 + 6 + 8 + 5) * 4 + 5 + 8) * 5 * 2
8 * (5 * 5 * 4 * (9 * 9 + 8 + 6 + 9 + 3) + 8 * 7) * 4
9 + ((9 * 3 * 4 * 2) + 6) + 8 + 4 * 9 * 7
2 * 8 * 2 * ((2 * 8 * 3 * 5) + 5 * 2 * 7 * 2) + 4
(2 + (6 + 6 + 7 + 9 + 9 + 7)) + 7 + 3 + (6 * 3 * 5 * 8) + 9 * 2
2 * 5 * 2 + 5 + 2 + ((9 + 7 + 6) + 7 + 2 + 2 * 2)
5 * 4
(3 * (9 + 5) + 3 + 4 + (7 * 6 + 6 * 6)) * 8 + (6 + 2 * 8 * (6 + 6 * 7 * 3 + 5) + 3 + 5) * 3 * 7
5 * (4 * 2) + (5 * 7 + 4 + 2) * 6 + (2 * (6 * 8 * 3 + 5) + 8) + 8
9 * 2 + (7 * 5) + 2 + (9 + 4)

40
day18.rkt

@ -0,0 +1,40 @@
#lang racket
(require "lib/common.rkt")
(define (parse prt)
(for/list ([str (in-list (port->lines prt))])
(read (open-input-string (format "(~a)" str)))))
(define (eval-arith expr)
(match expr
[n #:when (number? n) n]
[`(,tail) (eval-arith tail)]
[`(,rst ... + ,tail)
(+ (eval-arith rst) (eval-arith tail))]
[`(,rst ... * ,tail)
(* (eval-arith rst) (eval-arith tail))]))
(define (day18a input)
(for/sum ([expr (in-list input)])
(eval-arith expr)))
(define (eval-arith* expr)
(match expr
[n #:when (number? n) n]
[`(,tail) (eval-arith* tail)]
[`(,head ... ,left + ,right ,tail ...)
(eval-arith* `(,@head ,(+ (eval-arith* left) (eval-arith* right)) ,@tail))]
[`(,head ... ,left * ,right ,tail ...)
(eval-arith* `(,@head ,(* (eval-arith* left) (eval-arith* right)) ,@tail))]))
(define (day18b input)
(for/sum ([expr (in-list input)])
(eval-arith* expr)))
(module+ main
(call-with-input-file "data/day18.txt"
(λ (prt)
(define input (parse prt))
(dbg input)
(answer 18 1 (day18a input))
(answer 18 2 (day18b input)))))

42
lib/common.rkt

@ -1,14 +1,13 @@
#lang racket
(require syntax/parse/define
(require "aoc.rkt"
syntax/parse/define
threading
"aoc.rkt")
(for-syntax syntax/for-body))
(provide (all-from-out threading)
dbg
values->list
list->values
blank?
datum?
format-datum
values->list list->values
blank? datum? format-datum
for/min for/max
answer)
(define (dbg a)
@ -45,6 +44,35 @@
arg))
args))))
(define-syntax (for/max stx)
(syntax-case stx ()
[(_ clauses body ... tail-expr)
(with-syntax ([original stx]
[((pre-body ...) (post-body ...))
(split-for-body stx #'(body ... tail-expr))])
#'(for/fold/derived original
([current-max -inf.0])
clauses
pre-body ...
(define maybe-new-max (let () post-body ...))
(if (> maybe-new-max current-max)
maybe-new-max
current-max)))]))
(define-syntax (for/min stx)
(syntax-case stx ()
[(_ clauses body ... tail-expr)
(with-syntax ([original stx]
[((pre-body ...) (post-body ...))
(split-for-body stx #'(body ... tail-expr))])
#'(for/fold/derived original
([current-min +inf.0])
clauses
pre-body ...
(define maybe-new-min (let () post-body ...))
(if (< maybe-new-min current-min)
maybe-new-min
current-min)))]))
(define (answer day part answer)
(printf "answer ~a.~a: ~s\n" day part answer)
(unless (aoc-complete? day part)

Loading…
Cancel
Save