···
+
Mix.install([:kino_aoc])
+
<!-- livebook:{"attrs":"eyJhc3NpZ25fdG8iOiJwdXp6bGVfaW5wdXQiLCJkYXkiOiI4Iiwic2Vzc2lvbl9zZWNyZXQiOiJBRFZFTlRfT0ZfQ09ERV9TRVNTSU9OIiwieWVhciI6IjIwMjUifQ","chunks":null,"kind":"Elixir.KinoAOC.HelperCell","livebook_object":"smart_cell"} -->
+
KinoAOC.download_puzzle("2025", "8", System.fetch_env!("LB_ADVENT_OF_CODE_SESSION"))
+
|> Enum.map(&String.to_integer/1)
+
defmodule JunctionBoxes do
+
def all_pairs([]), do: []
+
def all_pairs([x | rest]) do
+
for(y <- rest, do: {x, y}) ++ all_pairs(rest)
+
def dist2({ax, ay, az}, {bx, by, bz}) do
+
dx ** 2 + dy ** 2 + dz ** 2
+
def group([], {a, b}), do: [MapSet.new([a, b])]
+
def group([set | rest], {a, b}) do
+
a in set and b in set -> [set | rest]
+
a in set or b in set -> set |> MapSet.put(a) |> MapSet.put(b) |> do_squash(rest, a, b, [])
+
true -> [set | group(rest, {a, b})]
+
defp do_squash(curr, [], _, _, acc), do: [curr | acc]
+
defp do_squash(curr, [x | rest], a, b, acc) do
+
[MapSet.union(curr, x) | acc ++ rest]
+
do_squash(curr, rest, a, b, [x | acc])
+
JunctionBoxes.all_pairs(boxes)
+
|> Enum.sort_by(fn {a, b} -> JunctionBoxes.dist2(a, b) end)
+
<!-- livebook:{"branch_parent_index":1} -->
+
|> Enum.reduce([], &JunctionBoxes.group(&2, &1))
+
|> Enum.map(&MapSet.size/1)
+
<!-- livebook:{"branch_parent_index":1} -->
+
box_count = length(boxes)
+
|> Enum.reduce_while([], fn pair, acc ->
+
new_acc = JunctionBoxes.group(acc, pair)
+
if MapSet.size(hd(new_acc)) == box_count do
+
<!-- livebook:{"offset":2222,"stamp":{"token":"XCP.sY5bJOGXuU_ZotobOVN6-zcg0TDJGEWVaJESs_-qDHzeEplFoStZ8_c6TRpS5eVpqnzoaj-gsLs_drksuYvMCDcM3T7_M6p9s09DRSKgMU2YB_Ogb0CB6_gAZamF2zEIUw","version":2}} -->