diff options
Diffstat (limited to 'dzref')
| -rwxr-xr-x | dzref | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -49,7 +49,7 @@ IndexOf←(1<⌈○=)◶⊐‿{ ! 0≤c 𝕨 (0<≠𝕨)◶⟨0⎉c∘⊢,(+˝∧`)≢⎉c⎉c‿∞⟩ 𝕩 } -UniqueMask←{ +MarkFirst←{ ! 1≤=𝕩 u←0↑𝕩 {(≠u)>⊑u IndexOf 𝕩}◶{u↩u∾𝕩⋄1}‿0˘𝕩 @@ -61,7 +61,7 @@ Find←{ } ⊐ ← ⊐ ⊘ IndexOf -∊ ← UniqueMask ⊘ (⊐˜<≠∘⊢) +∊ ← MarkFirst ⊘ (⊐˜<≠∘⊢) ⍷ ← ∊⊸/ ⊘ Find OccurrenceCount ← ⊐˜(⊢-⊏)⍋∘⍋ |
