From 4f7974ff14a5ba4f7d09aeb9cf931198a7cf8cc6 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 9 Sep 2020 13:53:14 -0400
Subject: Iterate forward across axes to generate inner Join indices

---
 src/r.bqn | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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