The Problem Index   <<   >>

 
   uniq ← {((⍳≢⍵)=⍵⍳⍵)⌿⍵}  ⍝ bad meme

   Tol←{⎕ct←⍵⍵ ⋄ ⍎(0=⎕nc'⍺')↓'⍺ ⍺⍺ ⍵'}

   (∪x) ≡ Tol 0 uniq x
1

   ⍳≢x
0 1 2 3 4 5 6 7 8 9 10
   x⍳x
0 0 1 2 3 4 5 6 7 8 9
   (⍳≢x)=x⍳x
1 0 0 0 0 0 0 0 0 0 0
   ((⍳≢x)=x⍳x)⌿x
1
 
   y←y[?⍨≢y←,(?10⍴100)∘.×1+⎕ctׯ5+?100⍴11]
   (∪y) ≡ Tol 0 uniq y
1