From c7cdf25ad5b35df4f1ba1d2a8af91ab942190f83 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Mon, 5 Sep 2022 15:46:56 -0400
Subject: Transpose on 1 axis is a no-op

---
 src/r1.bqn | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/r1.bqn b/src/r1.bqn
index ab63c139..5e4397a4 100644
--- a/src/r1.bqn
+++ b/src/r1.bqn
@@ -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≥=𝕨
-- 
cgit v1.2.3