From 0ba300520dffef41c5413ccd1529cbfd56a21f87 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 9 Aug 2020 08:58:29 -0400
Subject: =?UTF-8?q?Implement=20/=E2=81=BC=20with=20GroupLen?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/r.bqn | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/r.bqn b/src/r.bqn
index bacec9aa..be2df8e6 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -448,7 +448,7 @@ inverse ← {(⊑(0⊏𝕩)⊐<) ⊑ ((1⊏𝕩)∾⟨!∘0⟩)˜} ⍉ (2∾˜2
   ∧, ⊢⊘(÷˜)
   ∨, ⊢⊘(-˜÷1-⊢)
   <, {!IsArray𝕩⋄!0==𝕩⋄⊑𝕩}⊘(!∘0)
-  /, {!(⍋≡↕∘≠)𝕩⋄≠⌜⊔𝕩}⊘(!∘0)
+  /, {!1==𝕩⋄!∧´Nat⌜𝕩⋄!(∧´¯1⊸↓≤1⊸↓)𝕩⋄GroupLen𝕩}⊘(!∘0)
 ⟩
 ⁼ ← {Inverse 𝕗}
 
-- 
cgit v1.2.3