day24.dyalog

⍝ https://adventofcode.com/2017/day/24

DAY24←⍎¨¨'/'(≠⊆⊢)¨⊃⎕NGET'data/2017/24.txt'1
Find←{(a b)←↓⍉↑↑⍺⋄⍺[(⍸⍵=a)∪⍸⍵=b]}
∇ r←components Day24p1 args;path;pins;strongest;c;bridge
(path pins)←args
strongest←path
:For c :In (components~path) Find pins
    bridge←(components~c)Day24p1 (⊂(path,⊂c)),c {r←⍺~⍵⋄0=≢r:⊃⍺⋄⊃r} pins ⍝ Handle when both pins are equal
    :If (+/∊bridge)>+/∊strongest
        strongest←bridge
    :EndIf
:EndFor
r←strongest
∇
+/∊DAY24 Day24p1 (⊂0 0) 0 ⍝ Part 1: 1511