From 046415773ace47b6b4e1a3747d115ef308548631 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Mon, 3 Aug 2020 22:01:45 -0400
Subject: Use list Join-to when possible

---
 impl.bqn | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/impl.bqn b/impl.bqn
index 83a70461..caeab991 100644
--- a/impl.bqn
+++ b/impl.bqn
@@ -204,7 +204,7 @@ SelSub←{
 Select←ToArray⊸(SelSub _onAxes_ 1)
 ⊏ ← 0⊸Select       ⊘ Select
 
-JoinTo←{
+JoinTo←∨○(1≠=)◶∾‿{
   s←𝕨Pair○≢𝕩
   a←1⌈´k←≠¨s
   ! ∧´1≥a-k
-- 
cgit v1.2.3