diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2022-09-05 15:46:56 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2022-09-05 15:46:56 -0400 |
| commit | c7cdf25ad5b35df4f1ba1d2a8af91ab942190f83 (patch) | |
| tree | 9834d0f09dcf8dcbf360c2814614c92c50c02c39 /src/r1.bqn | |
| parent | 8dafee241e4f60eb0de525ae7255a39c396a2fab (diff) | |
Transpose on 1 axis is a no-op
Diffstat (limited to 'src/r1.bqn')
| -rw-r--r-- | src/r1.bqn | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -224,14 +224,14 @@ IndicesInv←{ SelfClas ← (PermInv∘⍋∘/˜⊏˜¯1+`⊢) _self OccurrenceCount ← ↕∘≠⊸(⊣-¨·⌈`ר) _self -Transpose←(0<=)◶⟨ToArray,{ +Transpose←(1<=)◶⟨ToArray,{ l←≠𝕩 ⋄ m←1×´c←1 Cell 𝕩 (⥊𝕩)⊏˜(c⥊↕m)+⟜(m⊸×)⌜↕l }_fillBy_⊢⟩ TransposeInv←{ r←1-˜=𝕩 ⋄ s←≢𝕩 ⋄ l←r⊑s ⋄ c←r↑s (⥊𝕩)⊏˜(↕l)+⟜(l⊸×)⌜c⥊↕1×´c -}_fillBy_⊢⍟{IX IsArray𝕩⋄0<=𝕩} +}_fillBy_⊢⍟{IX IsArray𝕩⋄1<=𝕩} _reorderAxesSub_←{ "𝕨⍉𝕩: 𝕨 must have rank at most 1" ! 1≥=𝕨 |