Use ⍋/⍒ instead of _grade_

1 files changed, 2 insertions, 3 deletions

diff --git a/src/r.bqn b/src/r.bqn
index d016b3c5..7380a817 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -159,7 +159,6 @@ _grade_←{
     }´(2⋆ni-1+⊢)⌜↕ni←⌈2 Log l+l=0
   }⟩𝕩
 }
-_sort ← {(𝕗⊑⟨Cmp,Cmp˜⟩)_grade_𝕗 ⊸ ⊏}
 _binSearch ← {
   B ← 𝔽
   {
@@ -608,8 +607,8 @@ GroupGen←{
 | ← (|       ⊘ {𝕩-𝕨×⌊𝕩÷𝕨}) _perv
 ⌊ ↩ (⌊       ⊘ {(𝕨>𝕩)⊑𝕨‿𝕩}) _perv
 ⌈ ↩ (-∘⌊∘-   ⊘ {(𝕨<𝕩)⊑𝕨‿𝕩}) _perv
-∧ ← 0 _sort  ⊘ (× _perv)
-∨ ← 1 _sort  ⊘ ((+-×) _perv)
+∧ ← ⍋⊸⊏      ⊘ (× _perv)
+∨ ← ⍒⊸⊏      ⊘ ((+-×) _perv)
 × ↩ (0⊸(<->) ⊘ ×) _perv
 < ↩ Box      ⊘ ((1-≥) _perv)
 > ↩ Merge    ⊘ ((1-≤) _perv)