给定的基于索引的对象执行二进制搜索

/* Masonjar13 撰写
  对数组执行二进制搜索。
  参数：
---------------
  arr: 要搜索的数组
  
  match: 要查找的匹配项
  
  r: 阵列长度
  
  l (optional): 左起始位置
  
  return: arr元素匹配
---------------
*/

arr:=[200,500,1050,20000]
msgbox % binSearch(arr,arr[3],arr.length())

binSearch(arr,match,r,l:=0){
  return arr[mid:=(l+r)//2]=match?mid
      :arr[mid]>match?binSearch(arr,match,mid-1,l)
      :arr[mid]<match?binSearch(arr,match,r,mid+1)
      :-1
}