x←?1e6⍴100 cmpx '{⍺,≢⍵}⌸x' '(∪x),⍪+/(∪x)∘.=x' f←{(b/s),⍪-2-/(b/⍳⍴b),1+⍴b←s≠¯1↓¯1,s←{⍵[⍋⍵]}⍵} cmpx '{⍺,≢⍵}⌸x' 'f x'