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 b0e451ec..80e95138 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -231,7 +231,7 @@ _takeDrop←{
_c ← { (Γ—βŸœπ•—βŒœπ•¨) +⌜ 𝕩 }
i←<0 β‹„ k←1 β‹„ UIk←{ i (k×𝕨)_c↩ k β†•βŠΈ(𝕨_c)⍟(1-=⟜1) 𝕩 β‹„ k↩1 β‹„ ≠𝕩 }
fill←0
- sh ← (βŠ‘βŸœs Noopβ—Ά({k×↩𝕨⋄𝕨})β€Ώ(⊣ UIk {fill↩1}_inds) βŠ‘βŸœπ•¨)⌜ ↕r
+ sh ← (βŠ‘βŸœs Noopβ—Ά{k×↩𝕨⋄𝕨}β€Ώ(⊣ UIk {fill↩1}_inds) βŠ‘βŸœπ•¨)⌜ ↕r
(0<=i)β—Ά(s⊸β₯Š)β€Ώ{
sh βˆΎβ†© t ← (sβŠ‘Λœr⊸+)βŒœβ†•(β‰ s)-r
{i 𝕩_c↩ ↕𝕩}⍟(1-1⊸=) kΓ—Β΄t
@@ -354,7 +354,7 @@ _depthOp_←{
neg←0>n←𝕨𝔾_ranks𝕩 β‹„ F←𝔽
_d←{
R←(𝕗+neg)_d
- 𝕨(Γ—βŸœ2⊸+Β΄2 Reshape (negβˆ§π•—β‰₯0)∨(0βŒˆπ•—)β‰₯Pair○≑)β—Ά(⟨RΒ¨β‹„RβŸœπ•©βŒœβˆ˜βŠ£β‹„(𝕨R⊒)βŒœβˆ˜βŠ’β‹„F⟩)𝕩
+ 𝕨(Γ—βŸœ2⊸+Β΄2 Reshape (negβˆ§π•—β‰₯0)∨(0βŒˆπ•—)β‰₯Pair○≑)β—ΆβŸ¨RΒ¨β‹„RβŸœπ•©βŒœβˆ˜βŠ£β‹„(𝕨R⊒)βŒœβˆ˜βŠ’β‹„FβŸ©π•©
}
𝕨 n _d 𝕩
}