30 lines
418 B
Text
30 lines
418 B
Text
~ "aoc.ua" ~ Lines
|
||
|
||
Input ← Lines &fras "input/day08.txt"
|
||
Junctions ← ≡◇⊜⋕ ⊸≠@, Input
|
||
|
||
Distance ← √ /+ ⁿ2 -
|
||
Dist₂ ← /+ ⁿ2 -
|
||
|
||
≡(□¤) Junctions
|
||
|
||
°⊏ Junctions
|
||
⊏ ⧅< 2
|
||
⊏⍏⊸≡(Distance°[⊙⊙])
|
||
|
||
↙ 1000
|
||
|
||
⍥₁₀₀₀(
|
||
⊃(↘1|⊢)
|
||
⊙(
|
||
⊃(⋅∘|¤∘)
|
||
⤚≡(/↥◇∊)
|
||
⊃(▽|▽¬)
|
||
/⍚⊂
|
||
⊂
|
||
)
|
||
)
|
||
|
||
˙⍤=0⧻
|
||
|
||
/×↙¯3⍆≡◇⧻
|