From 2b0830e4d3b703d84b7acea875dfa69cb7f1ec2a Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 9 Aug 2020 11:41:26 -0400
Subject: Extend fast Join-to to rank 0 in addition to 1

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

diff --git a/src/r.bqn b/src/r.bqn
index be2df8e6..054e6421 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -240,7 +240,7 @@ _onAxes_←{
 Select←ToArray⊸(SelSub _onAxes_ 1)
 ⊏ ← 0⊸Select       ⊘ Select
 
-JoinTo←∨○(1≠=)◶∾‿{
+JoinTo←∨○(1<=)◶(∾○⥊)‿{
   s←𝕨Pair○≢𝕩
   a←1⌈´k←≠⌜s
   ! ∧´1≥a-k
-- 
cgit v1.2.3