Fix bqn.bqn GroupLen definition: 𝕨 is maximum, not final, length

2 files changed, 2 insertions, 1 deletions

diff --git a/bqn.bqn b/bqn.bqn
index 57ddfc36..25694d4e 100644
--- a/bqn.bqn
+++ b/bqn.bqn
@@ -8,7 +8,7 @@ provide ← ⟨
   •Type           # Type
   •FillFn         # Fill
   ⋆⁼              # Log
-  (≠¨⊔){𝔽⊘(↑⟜𝔽)}  # GroupLen
+  {(𝕨⌈≠)⊸↑≠¨⊔𝕩}   # GroupLen
   ∾⊔∘⊢            # GroupOrd
   !,+,-,×,÷,⋆,⌊,=,≤,≢,⥊,⊑,↕,⌜,`,•_fillBy_,⊘
 ⟩
diff --git a/test/cases/prim.bqn b/test/cases/prim.bqn
index 3d69ed6a..65352370 100644
--- a/test/cases/prim.bqn
+++ b/test/cases/prim.bqn
@@ -445,6 +445,7 @@
 ! % ≍⊸⊔≍˘↕3
 ! % ⟨⟨<3,2⟩,¯1‿0‿¯1⟩⊔2‿3‿4⥊↕24
 (1‿3/⟨"a",""⟩)≡0‿¯1‿4⊔"ab"
+¯1⊸↓⊸(≡○(⊔⟜"ab"))2‿3‿1
 (≍1‿1‿0≍∘/⟜≍¨"bac")≡⟨0,1‿0‿3⟩⊔"ab"
 ! % (2‿3⥊↕4)⊔↕2‿2
 ! % (3‿3⥊↕4)⊔↕2‿2