diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/r.bqn | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -123,14 +123,14 @@ Indices←{ }⍟(0<l)𝕩 } -Transpose←{ +Transpose←(0<=)◶⟨ToArray,{ l←≠𝕩 ⋄ m←1×´c←1 Cell 𝕩 (c⥊↕m)(+⟜(m⊸×)⊑(⥊𝕩)˙)⌜↕l -}_fillBy_⊢⍟(0<=) +}_fillBy_⊢⟩ TransposeInv←{ r←1-˜=𝕩 ⋄ s←≢𝕩 ⋄ l←r⊑s ⋄ c←⊑⟜s⌜↕r (↕l)(+⟜(l⊸×)⊑(⥊𝕩)˙)⌜c⥊↕1×´c -}_fillBy_⊢⍟(0<=) +}_fillBy_⊢⍟{IX IsArray𝕩⋄0<=𝕩} Reverse←{ "⌽𝕩: 𝕩 must have rank at least 1" ! 1≤=𝕩 @@ -401,7 +401,7 @@ _onAxes_←{ "Multi-axis primitive: Length of 𝕨 must be at most rank of 𝕩" ! 𝕨≤○≠≢𝕩 l←≠𝕨 ⋄ W←⊑⟜(⥊𝕨) 0{(W𝕨)F(1+𝕨)⊸𝕊˘⍟(𝕨<l-1)𝕩}⍟(0<l)𝕩 - } + }⟜ToArray } ÷ ↩ ÷ _perv |
