Faster rank-1 selection with ⊏

1 files changed, 6 insertions, 2 deletions

diff --git a/dzref_full b/dzref_full
index ec77a0d7..288f24c2 100755
--- a/dzref_full
+++ b/dzref_full
@@ -190,8 +190,12 @@ SelSub←{
   ! ∧´⥊Int¨ 𝕨
   ! ∧´⥊ 𝕨 (≥⟜-∧<) ≠𝕩
   𝕨↩𝕨+(≠𝕩)×𝕨<0
-  c←×´s←1 Cell 𝕩
-  ⊑⟜(⥊𝕩)¨(c×𝕨)+⌜s⥊↕c
+  𝕨(1≠=∘⊢)◶{
+    ⊑⟜𝕩¨𝕨
+  }‿{
+    c←×´s←1 Cell 𝕩
+    ⊑⟜(⥊𝕩)¨(c×𝕨)+⌜s⥊↕c
+  }𝕩
 }
 Select←ToArray⊸(SelSub _onAxes_ 1)
 ⊏ ← 0⊸Select       ⊘ Select