aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xdzref_full8
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