More efficient _onAxes_, particularly with a singleton array left argument

1 files changed, 2 insertions, 2 deletions

diff --git a/impl.bqn b/impl.bqn
index 0095e3f3..7b873db7 100644
--- a/impl.bqn
+++ b/impl.bqn
@@ -235,8 +235,8 @@ _onAxes_←{
   }‿{ # Multiple axes
     ! 1≥=𝕨
     ! 𝕨≤○≠≢𝕩
-    R←{(0⊑⥊𝕨)F(1 DropV 𝕨)⊸R˘𝕩}⍟{0<≠𝕨}
-    𝕨R𝕩
+    l←≠𝕨 ⋄ W←⊑⟜(⥊𝕨)
+    0{(W𝕨)F(1+𝕨)⊸𝕊˘⍟(𝕨<l-1)𝕩}⍟(0<l)𝕩
   }
 }