From f4d45e6721784c23419045b0ec496d8460efc871 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Thu, 11 Feb 2021 15:19:25 -0500
Subject: Dyadic scan inverse

---
 src/r.bqn | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src')

diff --git a/src/r.bqn b/src/r.bqn
index 74152ab8..7ace52e6 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -769,10 +769,10 @@ Mod1Inverse ← INF˙ _lookup_ ⟨
     ∨, (¬√∘¬)⊘(-˜÷1-⊣)
     ¬, IA∘0⊘(+-1˙)
   ⟩
-  ¨, {𝕏⁼¨                        ⊣·IX 0<≡∘⊢}
-  ⌜, {𝕏⁼⌜⊘(IA∘0)                 ⊣·IX 0<≡∘⊢}
-  ˘, {(IX∘IsArray⊸⊢𝕏⁼)˘          ⊣·IX 0<=∘⊢}
-  `, {(⊏∾¯1⊸↓𝕏⁼¨1⊸↓)⍟(1<≠)⊘(IA∘0)⊣·IX 0<=∘⊢}
+  ¨, {𝕏⁼¨                     ⊣·IX 0<≡∘⊢}
+  ⌜, {𝕏⁼⌜⊘(IA∘0)              ⊣·IX 0<≡∘⊢}
+  ˘, {(IX∘IsArray⊸⊢𝕏⁼)˘       ⊣·IX 0<=∘⊢}
+  `, {(⊏∾¯1⊸↓𝕏1⊸↓)⍟(1<≠)⊘(»𝕏⊢)⊣·IX 0<=∘⊢}∘{𝕏⁼¨}
 ⟩ {
   0⊸⊑ {𝕏𝕨}⟜𝔽 1⊸⊑
 }
-- 
cgit v1.2.3