From 1317ba1d8cd4e67cfd59d775974e508ff94c8976 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 2 Sep 2020 09:12:33 -0400
Subject: dzaima/BQN now has full Transpose

---
 dzref | 16 +---------------
 1 file changed, 1 insertion(+), 15 deletions(-)

(limited to 'dzref')

diff --git a/dzref b/dzref
index c4a5c4e9..f117ddd4 100755
--- a/dzref
+++ b/dzref
@@ -90,20 +90,6 @@ Find←{
 ∊ ← UniqueMask     ⊘ (⊐˜<≠∘⊢)
 ⍷ ← ∊⊸/            ⊘ Find
 
-ReorderAxes←{
-  𝕩↩<⍟(0=≡)𝕩
-  ! 1≥=𝕨
-  𝕨↩⥊𝕨
-  ! 𝕨≤○≠≢𝕩
-  ! ∧´Nat¨⥊𝕨
-  r←(=𝕩)-+´¬∊𝕨
-  ! ∧´𝕨<r
-  𝕨↩𝕨∾𝕨(¬∘∊˜/⊢)↕r
-  (𝕨⊸⊏⊑𝕩˜)¨↕⌊´¨𝕨⊔≢𝕩
-}
-Transpose←(=-1˜)⊸ReorderAxes⍟(0<=)
-⍉ ← Transpose      ⊘ ReorderAxes
-
 OccurrenceCount ← ⊐˜(⊢-⊏)⍋∘⍋
 ProgressiveIndexOf ← {𝕨⊐○(≍˘⟜OccurrenceCount𝕨⊸⊐)𝕩}
 
@@ -113,7 +99,7 @@ ProgressiveIndexOf ← {𝕨⊐○(≍˘⟜OccurrenceCount𝕨⊸⊐)𝕩}
 X←Raw←{F:≤4}
 {v:
   chrs←⟨
-    "!∾↕⌽⍉⊐⊒∊⍷"
+    "!∾↕⌽⊐⊒∊⍷"
     ""
     "⚇"
   ⟩
-- 
cgit v1.2.3