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