diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-09-02 09:12:33 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-09-02 09:12:33 -0400 |
| commit | 1317ba1d8cd4e67cfd59d775974e508ff94c8976 (patch) | |
| tree | 2e863892eccb615c2e76ecc6e6d978dd9a019a83 /dzref | |
| parent | 409998c4ee6a104f8d346be3f3bd7e18d7f88df4 (diff) | |
dzaima/BQN now has full Transpose
Diffstat (limited to 'dzref')
| -rwxr-xr-x | dzref | 16 |
1 files changed, 1 insertions, 15 deletions
@@ -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←⟨ - "!∾↕⌽⍉⊐⊒∊⍷" + "!∾↕⌽⊐⊒∊⍷" "" "⚇" ⟩ |
