chore: mild improvements.

Panadestein · Dec 11, 2024 · 6502512 · 6502512
1 parent 3a89f4b
commit 6502512
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/aoc24.org b/src/aoc24.org
@@ -211,11 +211,11 @@ to get more context. These definitions and imports are shared by the various puz
   XI ← {
     inp ← •ParseFloat¨' 'Split⊑•Flines Input𝕩 ⋄ m ← •HashMap˜⟨⟩
     B ← {
-      𝕨𝕊𝕩: m.Has𝕨‿𝕩 ? m.Get𝕨‿𝕩;
+      m.Has𝕨‿𝕩 ? m.Get𝕨‿𝕩;
       ·𝕊0: 1;      
       0𝕊𝕩: 𝕩{𝕩 ⊣ 𝕨m.Set𝕩}1𝕊𝕩-1;
       e𝕊c: l‿r ← e (⌊∘÷⋈|˜) 10⋆⌊2÷˜d ← ⌊1+10⋆⁼e 
-      {𝕩⊣e‿c m.Set𝕩} 2⊸|◶{𝕊: (l⊸B+r⊸B)c-1}‿{𝕊: (2024×e) B c-1} d
+      {𝕩⊣e‿c m.Set𝕩} 𝕊{0=𝕩 ? (l⊸𝔽+r⊸𝔽)c-1; (2024×e)𝔽c-1} 2|d
     }
     zwei ⇐ +´inp B¨ 75
     eins ⇐ +´inp B¨ 25

diff --git a/src/bqn/aoc24.bqn b/src/bqn/aoc24.bqn
@@ -104,11 +104,11 @@ X _is 10
 XI ← {
   inp ← •ParseFloat¨' 'Split⊑•Flines Input𝕩 ⋄ m ← •HashMap˜⟨⟩
   B ← {
-    𝕨𝕊𝕩: m.Has𝕨‿𝕩 ? m.Get𝕨‿𝕩;
+    m.Has𝕨‿𝕩 ? m.Get𝕨‿𝕩;
     ·𝕊0: 1;      
     0𝕊𝕩: 𝕩{𝕩 ⊣ 𝕨m.Set𝕩}1𝕊𝕩-1;
     e𝕊c: l‿r ← e (⌊∘÷⋈|˜) 10⋆⌊2÷˜d ← ⌊1+10⋆⁼e 
-    {𝕩⊣e‿c m.Set𝕩} 2⊸|◶{𝕊: (l⊸B+r⊸B)c-1}‿{𝕊: (2024×e) B c-1} d
+    {𝕩⊣e‿c m.Set𝕩} 𝕊{0=𝕩 ? (l⊸𝔽+r⊸𝔽)c-1; (2024×e)𝔽c-1} 2|d
   }
   zwei ⇐ +´inp B¨ 75
   eins ⇐ +´inp B¨ 25