From ca4a6037b8a1b2477b49781f0644564c2db3097a Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 9 Sep 2020 14:37:26 -0400
Subject: Generate outer Join indices without multidimensional Replicate

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

(limited to 'src')

diff --git a/src/r.bqn b/src/r.bqn
index c5bab8b2..dfc9bf7e 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -327,7 +327,9 @@ Join←(1≠=)◶⟨∨´1≠=⌜,1⟩◶{
   t←(=𝕩)↓0⊑s
   "∾𝕩: 𝕩 element trailing shapes must match" ! ∧´(t≡(=𝕩)⊸↓)⌜s
   i←(<0) {s←0⋄p←{o←s⋄s+↩𝕩⋄o}⌜𝕨 ⋄ (𝕩×⌜𝕨/𝕨)+𝕩⊢⌜(↕s)-𝕨/p}´ l
-  i(0<≠t)◶⟨⊑⟜⥊¨,{ti←t⥊↕tp←×´t⋄((tp×𝕨)+⌜ti)⊑⟜⥊¨𝕩⊣⌜ti}⟩(⌽l)/𝕩
+  j←(<0) (≠⊸× +⌜ /∘⊣)´ l
+  G←(⥊⌜z){𝕨⊑𝕩⊑𝕗}¨
+  i (0<≠t)◶G‿{ti←t⥊↕tp←×´t⋄((tp×𝕨)+⌜ti)G𝕩⊣⌜ti} j
 }⍟(0<≠∘⥊)
 
 _group←{
-- 
cgit v1.2.3