2025 Day 8 Part 2

2025/day08.ua

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