From 17ad29dfe7336be1b410c8356ea58b91c3f46816 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 26 Jul 2020 08:29:12 -0400
Subject: =?UTF-8?q?Faster=20rank-1=20selection=20with=20=E2=8A=8F?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 dzref_full | 8 ++++++--
 1 file 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
-- 
cgit v1.2.3