aboutsummaryrefslogtreecommitdiff
path: root/dzref
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2020-09-02 09:12:33 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2020-09-02 09:12:33 -0400
commit1317ba1d8cd4e67cfd59d775974e508ff94c8976 (patch)
tree2e863892eccb615c2e76ecc6e6d978dd9a019a83 /dzref
parent409998c4ee6a104f8d346be3f3bd7e18d7f88df4 (diff)
dzaima/BQN now has full Transpose
Diffstat (limited to 'dzref')
-rwxr-xr-xdzref16
1 files changed, 1 insertions, 15 deletions
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←⟨
- "!∾↕⌽⍉⊐⊒∊⍷"
+ "!∾↕⌽⊐⊒∊⍷"
""
"⚇"