From 74b6f27be17afab842e173bfca9789e2a0cc3232 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Tue, 27 Apr 2021 13:27:46 -0400
Subject: =?UTF-8?q?Use=20=E2=8D=8B/=E2=8D=92=20instead=20of=20=5Fgrade=5F?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/r.bqn | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'src')

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)
-- 
cgit v1.2.3