From a436fd7611279dcba0fa8068476cbfa4cd6235ac Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sat, 8 Aug 2020 16:23:30 -0400
Subject: Grade-based UniqueMask implementation

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

diff --git a/src/r.bqn b/src/r.bqn
index 9afb02bf..e927c8a3 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -342,8 +342,8 @@ IndexOf←{
 }
 UniqueMask←{
   ! 1≤=𝕩
-  u←0↑𝕩
-  {(≠u)>0⊑⥊u IndexOf 𝕩}◶{u↩u∾𝕩⋄1}‿0˘𝕩
+  g←Cmp _grade 𝕩
+  (1¨⊸GroupOrd g)⊏0⊸<◶⟨1,-⟜1≢○(⊑⟜(g⊏<˘⍟(1<=)𝕩))⊢⟩⌜↕≠𝕩
 }
 Find←{
   r←=𝕨
-- 
cgit v1.2.3