_self-based Occurrence Count

1 files changed, 1 insertions, 1 deletions

diff --git a/src/r1.bqn b/src/r1.bqn
index 36f9f90c..571953d6 100644
--- a/src/r1.bqn
+++ b/src/r1.bqn
@@ -198,6 +198,7 @@ Indices←{
 }
 Rep ← Indices⊸⊏
 SelfClas ← (PermInv∘⍋∘Rep˜⊏˜¯1+`⊢) _self
+OccurrenceCount ← ↕∘≠⊸(⊣-¨·⌈`ר) _self
 
 Transpose←(0<=)◶⟨ToArray,{
   l←≠𝕩 ⋄ m←1×´c←1 Cell 𝕩
@@ -688,7 +689,6 @@ Find←{
   0 Fill 𝕨 ≡⎉r ((1+r-⊸↑≢𝕩)⌊≢𝕨)⊸↕⎉r 𝕩
 }○ToArray
 
-OccurrenceCount ← 0 Fill ⊐˜(⊢-⊏)⍋∘⍋
 ProgressiveIndexOf ← 0 Fill {
   c←1-˜=𝕨
   "⊒: Rank of 𝕨 must be at least 1" ! 0≤c