From b40cb1f469bbf88641127caee911ec07e7b2e1c4 Mon Sep 17 00:00:00 2001
From: Leah Neukirchen <leah@vuxu.org>
Date: Wed, 15 Dec 2021 16:05:36 +0100
Subject: day14

---
 day14.bqn | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 day14.bqn

(limited to 'day14.bqn')

diff --git a/day14.bqn b/day14.bqn
new file mode 100644
index 0000000..a54b14c
--- /dev/null
+++ b/day14.bqn
@@ -0,0 +1,14 @@
+str←•Import"bqn-libs/strings.bqn"
+template‿rules ← (⊑⋈2⊸↓) str.lf str.Split ¯1↓ •FChars"day14"
+rules ↩ >(" -> " ⊸ str.Split)¨ rules
+
+pairs ← ⊏˘rules
+letters ← ⊑¨pairs
+
+f ← +´˘ pairs ≡⌜ <˘ 2↕template
+t ← ¬ (¯1 ↑ template) ⊒ letters
+
+m ← ((<˘⊑¨rules) ≡⌜ pairs) + ((<˘⊑∘⌽¨⌽˘rules) ≡⌜ pairs)
+
+•Show (⌈´-⌊´) +´¨ (⊐ letters) ⊔ t + m⊸(+˝∘×)⍟10 f
+•Show (⌈´-⌊´) +´¨ (⊐ letters) ⊔ t + m⊸(+˝∘×)⍟40 f
-- 
cgit 1.4.1