From ceb09f9791e37f5c7fc422c9f848de09d58a7337 Mon Sep 17 00:00:00 2001
From: Leah Neukirchen <leah@vuxu.org>
Date: Sat, 25 Dec 2021 17:51:49 +0100
Subject: day24

---
 day24.bqn | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 day24.bqn

(limited to 'day24.bqn')

diff --git a/day24.bqn b/day24.bqn
new file mode 100644
index 0000000..b1df09a
--- /dev/null
+++ b/day24.bqn
@@ -0,0 +1,22 @@
+# port of https://github.com/cettt/Advent_of_Code2021/blob/master/day_24.R
+str←•Import"bqn-libs/strings.bqn"
+Diff ← (¬∘∊/⊣)
+
+d←{•BQN⊑⌽" " str.Split 𝕩}¨ 4‿5‿15 ⊏⎉1 14‿∘⥊•FLines"day24"
+
+x1←eqidx←/9≥1⊏˘d
+x2←⟨⟩
+x1minmax←⟨⟩
+x2minmax←⟨⟩
+
+{
+  x2 ∾↩ newmatch ← ⌈´ (↕𝕩) Diff x1∾x2
+  b ← (newmatch‿2⊑d) + 𝕩‿1⊑d
+  minmax ← (0 (<⋈>) b) + (⌊´⋈⌈´) / (>⟜0 ∧ <⟜10) b+↕9
+  x2minmax ∾↩ <minmax
+  x1minmax ∾↩ <minmax+b
+}¨eqidx
+
+res←(x1∾˘>x1minmax)∾(x2∾˘>x2minmax)
+
+•Show '0'+⌽⍉1↓˘(⍋0⊏˘res)⊏res
-- 
cgit 1.4.1