From 3d613e00b4560a453b162f32c78ea4a6ee452842 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 7 Sep 2022 19:00:13 -0400
Subject: Avoid memory blowup in _multiAxis

---
 src/r1.bqn | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/r1.bqn b/src/r1.bqn
index 5e4397a4..55cff957 100644
--- a/src/r1.bqn
+++ b/src/r1.bqn
@@ -293,7 +293,8 @@ _multiAxis←{
   Test∘⊣◶{ # Multiple axes
     er ! 1≥=𝕨 ⋄ TT 𝕨
     l←≠𝕨↩⥊𝕨 ⋄ el ! l≤=𝕩
-    j←<0 ⋄ 𝕨 { j↩(×⟜𝕩⌜j)+⌜𝕨Ind𝕩 }¨ p←l↑s←≢𝕩
+    i←𝕨Ind¨p←l↑s←≢𝕩
+    j←i (0<1×´≠∘⥊⌜i)◶⟨{⟨⟩⥊˜Join1≢⌜𝕨}, {j←<0⋄𝕨{j↩(j×⌜<𝕩)+⌜𝕨}¨𝕩⋄j}⟩ p
     j ⊏ (⟨1×´p⟩∾l↓s)⥊𝕩
   }‿{
     es ! 1≤=𝕩
-- 
cgit v1.2.3