Implement /⁼ with GroupLen

1 files changed, 1 insertions, 1 deletions

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 𝕗}