diff options
| -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←⟨ - "!∾↕⌽⍉⊐⊒∊⍷" + "!∾↕⌽⊐⊒∊⍷" "" "⚇" ⟩ |
