Tol←{⎕ct←⍵⍵ ⋄ ⍎(0=⎕nc '⍺')↓'⍺ ⍺⍺ ⍵'} (x⍳y) ≡ x {⍳⍨ ⍉cluster⍤1⍉ |⍵}Tol(2×⎕ct) HASH y 1 (x⍳y) ≡ x {⍳⍨ ⍉cluster⍤1⍉ |⍵}Tol(1.005×⎕ct) HASH y 1 (x⍳y) ≡ x {⍳⍨ ⍉cluster⍤1⍉ |⍵}Tol(1.004×⎕ct) HASH y 0