2025 Day 8 Part 2

2025/day08.ua

@@ -6,25 +6,48 @@ Junctions ← ≡◇⊜⋕ ⊸≠@, Input
 Distance ← √ /+ ⁿ2 -
 Dist₂    ← /+ ⁿ2 -
 
-≡(□¤) Junctions
+Part₁ ← (
-
+  ⊙⟜≡(□¤)
-°⊏ Junctions
-⊏ ⧅< 2
-⊏⍏⊸≡(Distance°[⊙⊙])
-
-↙ 1000
-
-⍥₁₀₀₀(
-  ⊃(↘1|⊢)
   ⊙(
-    ⊃(⋅∘|¤∘)
+    °⊏
+    ⊏ ⧅< 2
+    ⊏⍏⊸≡(Distance°[⊙⊙])
+  )
+  ⟜↙
+
+  ⊙⊃(⋅∘|∘)
+
+  ⍥(
+    ⊙⊃(¤⊢|↘1)
     ⤚≡(/↥◇∊)
     ⊃(▽|▽¬)
     /⍚⊂
     ⊂
   )
+
+  ⊙(˙⍤=0⧻)
+
+  /×↙¯3⍆≡◇⧻
 )
 
-˙⍤=0⧻
+Part₂ ← (
+  ⟜≡(□¤)
+  ⊏ ⧅< 2 °⊏
+  ⊏⍏⊸≡(Distance°[⊙⊙])
 
-/×↙¯3⍆≡◇⧻
+  # Edges Forest
+  ⊃(⋅∘|∘)
+  # Forest Edges 0
+
+  ⍢(⊙⊃(¤⊢|↘1|×∩⊢°[⊙⊙]⊢)
+    ⤚≡(/↥◇∊)
+    ⊃(▽|▽¬)
+    /⍚⊂
+    ⊂
+  | >1◇⧻
+  )
+  ⊣
+)
+
+&s Part₁ 1000 Junctions
+&s Part₂ Junctions