Key Index   <<   >>


 
x←?1e6⍴100

cmpx '{⍺,≢⍵}⌸x' '(∪x),⍪+/(∪x)∘.=x'

f←{(b/s),⍪-2-/(b/⍳⍴b),1+⍴b←s≠¯1↓¯1,s←{⍵[⍋⍵]}⍵}

cmpx '{⍺,≢⍵}⌸x' 'f x'