index
:
BQN.git
master
gitar
about
summary
refs
log
tree
commit
diff
log msg
author
committer
range
diff options
context:
1
2
3
4
5
6
7
8
9
10
15
20
25
30
35
40
space:
include
ignore
mode:
unified
ssdiff
stat only
Diffstat
-rw-r--r--
impl.bqn
2
1 files changed, 1 insertions, 1 deletions
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