diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-09-09 14:37:26 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-09-09 14:37:26 -0400 |
| commit | ca4a6037b8a1b2477b49781f0644564c2db3097a (patch) | |
| tree | ea7c57adf92fcda23a12ca3355c74a4d261d4070 /src | |
| parent | 4f7974ff14a5ba4f7d09aeb9cf931198a7cf8cc6 (diff) | |
Generate outer Join indices without multidimensional Replicate
Diffstat (limited to 'src')
| -rw-r--r-- | src/r.bqn | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -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←{ |