aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/r.bqn4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/r.bqn b/src/r.bqn
index 702de192..84adec0c 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -646,8 +646,8 @@ SelfClas ← (PermInv∘⍋∘/˜⊏˜1-˜+`∘⊢) _self
Find←{
r←=𝕨
"⍷𝕩: Rank of 𝕨 cannot exceed rank of 𝕩" ! r≤=𝕩
- 0 Fill 𝕨 ≡⎉r (≢𝕨) ↕⎉r 𝕩
-}
+ 0 Fill 𝕨 ≡⎉r ((1+r-⊸↑≢𝕩)⌊≢𝕨)⊸↕⎉r 𝕩
+}○ToArray
≍ ← >∘Pair _fillBy_ (⊢⊘IF)
∾ ↩ Join ⊘ JoinTo