From 0f872eb46fac8b9835c8ae2b39c084404b05663c Mon Sep 17 00:00:00 2001
From: Leah Neukirchen <leah@vuxu.org>
Date: Sat, 11 Dec 2021 22:03:37 +0100
Subject: day10

---
 day10.bqn | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 day10.bqn

(limited to 'day10.bqn')

diff --git a/day10.bqn b/day10.bqn
new file mode 100644
index 0000000..b967de7
--- /dev/null
+++ b/day10.bqn
@@ -0,0 +1,9 @@
+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
-- 
cgit 1.4.1