diff options
author | Leah Neukirchen <leah@vuxu.org> | 2021-12-15 16:05:36 +0100 |
---|---|---|
committer | Leah Neukirchen <leah@vuxu.org> | 2021-12-15 16:05:36 +0100 |
commit | b40cb1f469bbf88641127caee911ec07e7b2e1c4 (patch) | |
tree | a65962d93b957664c6cf96dea1d635afbb3342db /day14.bqn | |
parent | df2124d106c44c7a6b4bd4619020c8ffa6a5a719 (diff) | |
download | adventofcode2021-b40cb1f469bbf88641127caee911ec07e7b2e1c4.tar.gz adventofcode2021-b40cb1f469bbf88641127caee911ec07e7b2e1c4.tar.xz adventofcode2021-b40cb1f469bbf88641127caee911ec07e7b2e1c4.zip |
day14
Diffstat (limited to 'day14.bqn')
-rw-r--r-- | day14.bqn | 14 |
1 files changed, 14 insertions, 0 deletions
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 |