day18: add haskell solution

This commit is contained in:
Xiretza 2020-12-18 13:37:54 +01:00
parent deb81d4e12
commit cbffd4fd59
Signed by: xiretza
GPG key ID: 17B78226F7139993
4 changed files with 437 additions and 0 deletions

View file

@ -17,9 +17,12 @@ https://adventofcode.com/2020/
| 9 | | `**` | | | 9 | | `**` | |
|10 | | `**` | | |10 | | `**` | |
|11 | `**` | | | |11 | `**` | | |
|12 | | | |
|13 | | `**` | | |13 | | `**` | |
|14 | | `**` | | |14 | | `**` | |
|15 | `**` | | | |15 | `**` | | |
|16 | | `**` | | |16 | | `**` | |
|17 | | | |
|18 | | `**` | |
`test.sh` can be used to run all solutions and automatically compares them to (my) puzzle inputs and the expected outputs. `test.sh` can be used to run all solutions and automatically compares them to (my) puzzle inputs and the expected outputs.

2
data/day18.expected Normal file
View file

@ -0,0 +1,2 @@
2743012121210
65658760783597

376
data/day18.input Normal file
View file

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

56
day18/day18.hs Normal file
View file

@ -0,0 +1,56 @@
module Day18 where
import AoC
import Control.Applicative
import Data.Maybe
import Text.ParserCombinators.ReadP
import Text.Read.Lex
data Expression = Literal Int
| Addition Expression Expression
| Multiplication Expression Expression
| Bracketed Expression
type ApplicationSequencer = Expression -> String -> Expression -> Expression
parseLiteral :: ReadP Expression
parseLiteral = Literal <$> readDecP
parseBracketed :: ApplicationSequencer -> ReadP Expression
parseBracketed seq = Bracketed <$> between (char '(') (char ')') (parseExpression seq)
parseOperations :: ApplicationSequencer -> ReadP Expression
parseOperations seq =
do l <- parseLiteral <|> parseBracketed seq
apps <- many1 $ parseApplication seq
return $ foldl (\l (op, r) -> seq l op r) l apps
parseApplication :: ApplicationSequencer -> ReadP (String, Expression)
parseApplication seq =
do skipSpaces
op <- choice $ map string ["*", "+"]
skipSpaces
r <- parseLiteral <|> parseBracketed seq
return $ (op, r)
parseExpression :: ApplicationSequencer -> ReadP Expression
parseExpression seq = parseLiteral <|> parseOperations seq <|> parseBracketed seq
sequenceLeftToRight :: ApplicationSequencer
sequenceLeftToRight l op r = toOperation op l r
where toOperation "*" = Multiplication
toOperation "+" = Addition
sequenceAdditionPrecedence :: ApplicationSequencer
sequenceAdditionPrecedence (Multiplication l r) "+" rr = Multiplication l (Addition r rr)
sequenceAdditionPrecedence l op r = sequenceLeftToRight l op r
eval :: Expression -> Int
eval (Literal n) = n
eval (Addition l r) = eval l + eval r
eval (Multiplication l r) = eval l * eval r
eval (Bracketed x) = eval x
main = runAoC lines (run sequenceLeftToRight) (run sequenceAdditionPrecedence)
where run seq = sum . map (eval . fromJust . oneCompleteResult (parseExpression seq))