path: root/day10.bqn

d←•FLines"day10"
_fix ← {𝕊∘⊢⍟≢⟜𝔽𝕩}

Del ← { 𝕩/˜¬(⌈⟜») 𝕨 (≢∘⊢↑⍷) 𝕩 }  # 2 letter only
Shrink ← Del´⟜"()"‿"<>"‿"{}"‿"[]" _fix
Score ← {' ': 0 ; ')': 3 ; ']': 57 ; '}': 1197 ; '>': 25137}

•Out +´{Score(⌊´𝕩⊐">]})")⊑𝕩∾' '}¨Shrink¨d
•Out (⌊0.5×≠r) ⊑ r←∧(≠⟜0/⊣) {((5⊸×+⊣)´ " ([{<" ⊐ 𝕩) × ∧´¬ 𝕩∊">]})"}¨Shrink¨d