Back to scalar-based filtering, faster in CBQN

1 files changed, 2 insertions, 2 deletions

diff --git a/filter.bqn b/filter.bqn
index d57e651..f6b8f6b 100644
--- a/filter.bqn
+++ b/filter.bqn
@@ -42,10 +42,10 @@ Filter ← {
     0 (×⟜o0+i0⊸×)` 𝕩
  ;⟨i0,i1⟩‿⟨o0⟩ 𝕊𝕩:
     a1←a0←0
-    0 (+´(∾𝕨)×{⟨a0↩a1,a1↩𝕩,𝕨⟩})` 𝕩
+    0 { (o0×𝕨)+(i1×a1↩𝕩)+i0×a0↩a1 }` 𝕩
  ;⟨i0,i1,i2⟩‿⟨o0,o1⟩ 𝕊𝕩:
     b0←a2←a1←a0←0
-    0 (+´(∾𝕨)×{⟨a0↩a1,a1↩a2,a2↩𝕩,b0,b0↩𝕨⟩})` 𝕩
+    0 { (o1×b0↩𝕨)+(o0×b0)+(i2×a2↩𝕩)+(i1×a1↩a2)+i0×a0↩a1 }` 𝕩
  ;coeff 𝕊𝕩:
     a‿b ← 0×coeff  # accumulators for input and result
     c ← ∾coeff