this repo has no description
hauleth.dev
1<!-- vim:ft=markdown -->
2
3<!-- livebook:{"persist_outputs":true} -->
4
5# Day 18
6
7## Input
8
9```elixir
10input =
11 File.stream!("day18.txt")
12 |> Enum.map(&elem(Code.eval_string(&1), 0))
13```
14
15```output
16[
17 [[[6, [8, 3]], [2, 0]], [[[9, 5], [9, 1]], 3]],
18 [[[9, [2, 2]], [5, 4]], [[[2, 2], [9, 6]], '\a\a']],
19 [[[0, [3, 2]], 1], [[0, [2, 8]], [2, [0, 4]]]],
20 [[4, 4], [[[7, 0], 5], [3, 1]]],
21 [[5, 4], 1],
22 [[[[7, 6], 4], 9], [[9, 1], 9]],
23 [[[1, '\a\b'], ['\a\a', [1, 6]]], [1, [6, [7, 1]]]],
24 [[[[6, 8], [5, 6]], [[1, 1], 8]], [[[2, 0], [3, 1]], [2, [2, 6]]]],
25 [[[6, 3], [3, [7, 1]]], 8],
26 [[[9, 4], [3, [0, 6]]], [[2, [3, 6]], ['\t\b', [1, 6]]]],
27 [9, [0, [[0, 7], 2]]],
28 [[[[8, 4], 7], [[9, 2], [0, 9]]], ['\a\t', [8, [0, 9]]]],
29 [[1, 1], [[5, [3, 8]], [3, [4, 7]]]],
30 [[[9, [2, 9]], [2, [2, 9]]], [[[3, 5], 5], [[3, 3], 2]]],
31 [[[[5, 4], 9], 0], [[[5, 7], 2], [[5, 2], 9]]],
32 [[2, [[1, 0], [6, 2]]], 0],
33 [[[3, 7], [7, 6]], [[[2, 8], 5], [3, '\t\a']]],
34 [[2, [2, '\b\b']], [['\t\t', [1, 1]], [[8, 6], [0, 3]]]],
35 [[8, 1], [3, 5]],
36 [[7, [[7, 6], [2, 0]]], 4],
37 [[5, 4], [[1, 3], [5, [2, 8]]]],
38 '\a\t',
39 [[[[6, 9], 0], [1, [5, 0]]], [[[6, 4], 3], 7]],
40 [[[[3, 7], 3], [2, 6]], [[0, 4], '\t\t']],
41 [[[[1, 5], [5, 0]], [9, 4]], [[[8, 3], 3], [8, [3, 6]]]],
42 [[[[3, 7], 5], [[8, 5], [1, 5]]], [[0, 6], [3, 4]]],
43 [[[[4, 0], 2], [7, [8, 4]]], [0, [5, '\a\b']]],
44 [[[[0, 8], [0, 4]], [9, 3]], [[[5, 4], [4, 8]], [[1, 6], [5, 4]]]],
45 [[0, [0, 3]], [[3, [1, 5]], [[9, 6], [0, 6]]]],
46 [[9, [8, 4]], [7, 1]],
47 [[[[1, 9], '\a\a'], 9], [[6, [4, 5]], [8, [3, 2]]]],
48 [5, [[2, [9, 5]], [3, [4, 0]]]],
49 [[[6, 2], [[1, 8], 5]], 6],
50 [[8, [6, [6, 4]]], [0, ['\t\b', 7]]],
51 [[[[6, 3], [8, 0]], [8, [2, 7]]], 8],
52 [[[6, [3, 6]], [[4, 0], [4, 7]]], [0, [[4, 0], [4, 5]]]],
53 [[[3, [8, 1]], 1], [2, 3]],
54 [[[6, [7, 0]], [[3, 5], [3, 4]]], 7],
55 [[[[8, 0], 3], 8], [[[1, 6], 3], [[0, 5], 2]]],
56 [[[3, 7], ['\t\b', 8]], [[[8, 4], 7], [3, [1, 7]]]],
57 [[[0, 5], [[5, 5], '\a\b']], [9, [5, [2, 2]]]],
58 [[2, 9], [[[7, 4], 4], [[8, 0], [6, 9]]]],
59 [[['\a\b', '\b\b'], 0], 9],
60 [[[4, [0, 6]], [[5, 9], [0, ...]]], [3, [6, 7]]],
61 [[[7, [6, ...]], [5, [...]]], [[[3, ...], 6], [[...], ...]]],
62 [3, [[[...], ...], [...]]],
63 [[[3, ...], [...]], [[...], ...]],
64 [['\t\a', ...], [...]],
65 [[...], ...],
66 [...],
67 ...
68]
69```
70
71```elixir
72defmodule Day18 do
73 def add(a, b) do
74 sum = reduce([a, b])
75
76 # IO.puts("""
77 # #{inspect(a, charlists: :as_list)}
78 # + #{inspect(b, charlists: :as_list)}
79 # = #{inspect(sum, charlists: :as_list)}
80 # """)
81
82 sum
83 end
84
85 defp reduce(list) do
86 # First try to explode
87 # If that returned list in the same form, then try to split it
88 # If all above returned input list, then we have reached fixed point
89 with ^list <- explode(list),
90 ^list <- split(list) do
91 list
92 else
93 new_list -> reduce(new_list)
94 end
95 end
96
97 defp explode(list) do
98 {_, _, exploded} = explode(list, 0)
99
100 exploded
101 end
102
103 defp explode(num, _) when is_number(num), do: {0, 0, num}
104
105 defp explode([a, b], 4), do: {a, b, 0}
106
107 defp explode([a, b], n) do
108 {la, ra, na} = explode(a, n + 1)
109 {lb, rb, nb} = explode(explode_add(ra, b), n + 1)
110
111 {la, rb, [explode_add(na, lb), nb]}
112 end
113
114 defp explode_add([a, b], v), do: [a, explode_add(b, v)]
115 defp explode_add(v, [a, b]), do: [explode_add(v, a), b]
116 defp explode_add(a, b), do: a + b
117
118 defp split(n) when n in 0..9, do: n
119 defp split(n) when is_integer(n), do: [div(n, 2), div(n + 1, 2)]
120
121 defp split([a, b]) do
122 with {:a, ^a} <- {:a, split(a)},
123 {:b, ^b} <- {:b, split(b)} do
124 [a, b]
125 else
126 {:a, mod} -> [mod, b]
127 {:b, mod} -> [a, mod]
128 end
129 end
130
131 def magnitude(n) when is_number(n), do: n
132 def magnitude([a, b]), do: 3 * magnitude(a) + 2 * magnitude(b)
133end
134```
135
136```output
137{:module, Day18, <<70, 79, 82, 49, 0, 0, 12, ...>>, {:magnitude, 1}}
138```
139
140## Task 1
141
142```elixir
143flip = fn f -> &f.(&2, &1) end
144
145input
146|> Enum.reduce(flip.(&Day18.add/2))
147|> IO.inspect(charlists: :as_list)
148|> Day18.magnitude()
149```
150
151```output
152[[[[7, 7], [7, 8]], [[8, 7], [0, 7]]], [[[6, 6], [6, 7]], 6]]
153```
154
155```output
1563411
157```
158
159## Task 2
160
161```elixir
162for a <- input,
163 b <- input,
164 a != b,
165 m1 = Day18.magnitude(Day18.add(a, b)),
166 m2 = Day18.magnitude(Day18.add(b, a)),
167 reduce: 0 do
168 acc -> max(acc, max(m1, m2))
169end
170```
171
172```output
1734680
174```