binary search logic

binary search via callback.
no redundant search.

how to use toBinarySearchIndex

define Number.prototype

1. declare value

let v=0

2. loop

for(let i;1<l-v;)

3. set value

this<c(i=v+l>>>1)?l=i:v=i

4. return

return v