R语言实现二分查找法

二分查找时间复杂度O(h)=O(log2n)，具备非常高的效率，用R处理数据时有时候需要用到二分查找法以便快速定位

 Rbisect <- function(lst, value){
     low=1
     high=length(lst)
     mid=length(lst)%/%2
     if (lst[low]==value) low
     else if (lst[high]==value) high
     else{
     while (lst[mid] != value) {
       if (value > lst[mid]){
         low = mid+1
       } else if (value < lst[mid]) {
         high = mid - 1
       }
       if(high<low){
          mid=-1;break
       }
       mid=(low+high)%/%2
     }
       mid
 }
 }