Dyadic scan inverse

1 files changed, 4 insertions, 4 deletions

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⊸⊑
 }