diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/r.bqn | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 |
