Skip to content

Instantly share code, notes, and snippets.

@xpqz

xpqz/aoc21-5.apl

Created December 5, 2021 10:29
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save xpqz/5af963d56153b9e340f398931106adcf to your computer and use it in GitHub Desktop.
Save xpqz/5af963d56153b9e340f398931106adcf to your computer and use it in GitHub Desktop.
Download ZIP
Raw
aoc21-5.apl
'iotag'⎕CY'dfns'
data←↑⍎¨'[^\d]+'⎕R' '⊢⊃⎕NGET'../d/5'1
f←{d←⍵⋄+/∊1<⊃+/{1∘+@⍵⊢(1+⌈⌿2 2⍴⌈⌿d)⍴0}¨⊃↓{⊃,¨/iotag⌿2 2⍴⍵}¨↓d}
f data⌿⍨{+⌿=⌿2 2⍴⍵}⍤1⊢data⋄f data
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment