From e6d66849f3cd269890317e9dd16335e88b82f2e4 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Tue, 1 Jun 2021 08:29:57 -0400
Subject: Don't create a shape-suffix array in _eachd if the result will be
 empty

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

(limited to 'src')

diff --git a/src/r1.bqn b/src/r1.bqn
index 24fdbc0a..efb2455c 100644
--- a/src/r1.bqn
+++ b/src/r1.bqn
@@ -55,8 +55,8 @@ _eachd←{
     p←≢𝕨 ⋄ k←=𝕨 ⋄ q←≢𝕩
     "Mapping: Argument shape prefixes don't agree" ! p MatchS k↑q
     l←1×´k↓q
-    a←⥊𝕨 ⋄ b←⥊𝕩
-    q⥊⥊(≠a) (⊑⟜a𝔽l⊸×⊸+⊑b˙)⌜○↕ l
+    m←≠a←⥊𝕨 ⋄ b←⥊𝕩
+    q⥊m (⊑⟜a𝔽l⊸×⊸+⊑b˙)⌜○↕ l×m>0
   }
   =○=◶⟨>○=◶⟨𝔽_e⋄𝔽˜_e˜⟩⋄𝔽_d⟩
 }
-- 
cgit v1.2.3