feat: 9 at 22ms.

Panadestein · Dec 9, 2024 · eaa4c84 · eaa4c84
1 parent 9b83b1c
commit eaa4c84
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 12 deletions.
diff --git a/src/aoc24.org b/src/aoc24.org
@@ -168,13 +168,13 @@ to get more context. These definitions and imports are shared by the various puz
 
 #+begin_src bqn :tangle ./bqn/aoc24.bqn
   IX ← {
-     f‿s ← <˘⍉↑‿2⥊•ParseFloat∘⋈¨ ⊑•FLines Input𝕩
-     m ← ¯1=d ← ∾⥊⍉ds ← (⊔˜/f)≍¯1¨∘↕¨s
-     ds ⊣ {n𝕊cf: (p<n)∧(≠f)>p←⊑1⊐˜(≠cf)≤+´¨¯1=1⊸⊏ds?
-       ds↩{cf«𝕩}⌾(1‿p⊸⊑){¯1¨𝕩}⌾(0‿n⊸⊑)ds⋄@; @
+     f‿s ← <˘⍉↑‿2⥊•ParseFloat∘⋈¨⊑•FLines Input𝕩
+     m ← ¯1=d ← ∾⥊⍉ds ← (⊔˜/f)≍¯1¨∘↕¨sm ← s
+     ds ⊣ {n𝕊cf: (p<n)∧(≠f)>p←⊑1⊐˜cf≠⊸≤sm?
+       ds({cf«𝕩}⌾(1‿p⊸⊑){¯1¨𝕩}⌾(0‿n⊸⊑))↩ ⋄ @⊣sm{𝕩-≠cf}⌾(p⊸⊑)↩; @
      }´˘(⊢≍˘˜·⌽⊒˜)⌽⊏ds
-     eins ⇐ {+´/(𝕩-˜≠d)↑(d×¬m)+(𝕩↑⌽/f)⌾(m⊸/)m}+´s
-     zwei ⇐ +´/(⊢×¯1⊸≠)∾⥊⍉{𝕊⟨⟩:𝕩;(⌽∘⊣∾⊢)´𝕩⊔˜𝕩=¯1}¨⌾(1⊸⊏)ds
+     eins ⇐ {+´(⊢×↕∘≠)(𝕩-˜≠d)↑(𝕩↑⌽/f)⌾(m⊸/)d}+´s
+     zwei ⇐ +´(⊢×↕∘≠)(⊢×¯1⊸≠)∾⥊⍉{𝕊⟨⟩:𝕩;(⌽∘⊣∾⊢)´𝕩⊔˜𝕩=¯1}¨⌾(1⊸⊏)ds
   }
   IX _is 9
 #+end_src

diff --git a/src/bqn/aoc24.bqn b/src/bqn/aoc24.bqn
@@ -75,12 +75,12 @@ VIII ← {
 VIII _is 8
 
 IX ← {
-   f‿s ← <˘⍉↑‿2⥊•ParseFloat∘⋈¨ ⊑•FLines Input𝕩
-   m ← ¯1=d ← ∾⥊⍉ds ← (⊔˜/f)≍¯1¨∘↕¨s
-   ds ⊣ {n𝕊cf: (p<n)∧(≠f)>p←⊑1⊐˜(≠cf)≤+´¨¯1=1⊸⊏ds?
-     ds↩{cf«𝕩}⌾(1‿p⊸⊑){¯1¨𝕩}⌾(0‿n⊸⊑)ds⋄@; @
+   f‿s ← <˘⍉↑‿2⥊•ParseFloat∘⋈¨⊑•FLines Input𝕩
+   m ← ¯1=d ← ∾⥊⍉ds ← (⊔˜/f)≍¯1¨∘↕¨sm ← s
+   ds ⊣ {n𝕊cf: (p<n)∧(≠f)>p←⊑1⊐˜cf≠⊸≤sm?
+     ds({cf«𝕩}⌾(1‿p⊸⊑){¯1¨𝕩}⌾(0‿n⊸⊑))↩ ⋄ @⊣sm{𝕩-≠cf}⌾(p⊸⊑)↩; @
    }´˘(⊢≍˘˜·⌽⊒˜)⌽⊏ds
-   eins ⇐ {+´/(𝕩-˜≠d)↑(d×¬m)+(𝕩↑⌽/f)⌾(m⊸/)m}+´s
-   zwei ⇐ +´/(⊢×¯1⊸≠)∾⥊⍉{𝕊⟨⟩:𝕩;(⌽∘⊣∾⊢)´𝕩⊔˜𝕩=¯1}¨⌾(1⊸⊏)ds
+   eins ⇐ {+´(⊢×↕∘≠)(𝕩-˜≠d)↑(𝕩↑⌽/f)⌾(m⊸/)d}+´s
+   zwei ⇐ +´(⊢×↕∘≠)(⊢×¯1⊸≠)∾⥊⍉{𝕊⟨⟩:𝕩;(⌽∘⊣∾⊢)´𝕩⊔˜𝕩=¯1}¨⌾(1⊸⊏)ds
 }
 IX _is 9