~ "aoc.ua" ~ Lines

Input     ← Lines &fras "input/day08.txt"
Junctions ← ≡◇⊜⋕ ⊸≠@, Input

Distance ← √ /+ ⁿ2 -
Dist₂    ← /+ ⁿ2 -

≡(□¤) Junctions

°⊏ Junctions
⊏ ⧅< 2
⊏⍏⊸≡(Distance°[⊙⊙])

↙ 1000

⍥₁₀₀₀(
  ⊃(↘1|⊢)
  ⊙(
    ⊃(⋅∘|¤∘)
    ⤚≡(/↥◇∊)
    ⊃(▽|▽¬)
    /⍚⊂
    ⊂
  )
)

˙⍤=0⧻

/×↙¯3⍆≡◇⧻