Add 2020 day 18

haskellAoC/inputs/2020/18

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

haskellAoC/package.yaml

@@ -30,6 +30,7 @@ dependencies:
 - scientific
 - sort
 - split
+- text
 - unordered-containers
 - utf8-string
 - vector

haskellAoC/src/Y2020/Day18.hs

@@ -1,6 +1,54 @@
 module Y2020.Day18 (y20day18) where
 
+import Data.Text (pack, unpack, replace)
+
+-- Retrieve (if it exists) the first in-parenthesis expression it founds
+getSubParen :: String -> String
+getSubParen "" = ""
+getSubParen ('(':s) = if '(' `notElem` s'
+                      then s'
+                      else getSubParen s'
+  where s' = takeWhile (/= ')') s
+getSubParen (_:s) = getSubParen s
+
+-- Evaluate an expression (for part 1) left to right
+-- Takes a wordified string to handle multi-character numbers...
+evaluate :: [String] -> Int
+evaluate input = fst $ foldl doOp (0, "") input
+  where doOp (0, "")    c = (read c, "")
+        doOp (res, "+") c = (res + (read c), "")
+        doOp (res, "*") c = (res * (read c), "")
+        doOp (res, "")  c = (res, c)
+        doOp e c          = error ("Invalid fold on " ++ show (e,c) ++ " in " ++ input)
+
+-- Evaluate an expression (for part 2) by doing +'s first then calling P1 evaluate function
+evaluateP2 :: [String] -> Int
+evaluateP2 input
+  | "+" `elem` input = evaluateP2 $ removedPlus input
+  | otherwise = evaluate input
+  where removedPlus (a:"+":b:t) = (show ((read a :: Int) + (read b :: Int))):t
+        removedPlus (x:t) = x:(removedPlus t)
+        removedPlus [] = error ("Invalid formula, missing + operand in " ++ show input ++ "?")
+
+-- Replace an expression with its result directly in string
+replaceExpr :: Bool -> String -> String -> String
+replaceExpr isP2 baseExp subExp = resultExp
+  where toReplace          = pack $ "(" ++ subExp ++ ")"
+        value False        = evaluate $ words subExp
+        value True         = evaluateP2 $ words subExp
+        replaceWith        = pack $ show $ value isP2
+        resultExp          = unpack . replace toReplace replaceWith . pack $ baseExp
+
+-- Main function: as long as there are parenthesis, evaluate those and replace them with their results
+computeExpression :: Bool -> String -> Int
+computeExpression isP2 input
+  | '(' `elem` input   = computeExpression isP2 simplified
+  | otherwise          = result isP2
+    where simplified   = replaceExpr isP2 input $ getSubParen input
+          result False = evaluate $ words input
+          result True  = evaluateP2 $ words input
+
 y20day18 :: [String] -> (String, String)
 y20day18 input = (part1, part2)
-  where part1  = "WIP"
+  where part1  = show $ sum $ map (computeExpression False) input
-        part2  = "WIP"
+        part2  = show $ sum $ map (computeExpression True)  input