13 lines
289 B
R
13 lines
289 B
R
BinSearch <- function(A, value, low, high) {
|
|
if ( high < low ) {
|
|
return(NULL)
|
|
} else {
|
|
mid <- floor((low + high) / 2)
|
|
if ( A[mid] > value )
|
|
BinSearch(A, value, low, mid-1)
|
|
else if ( A[mid] < value )
|
|
BinSearch(A, value, mid+1, high)
|
|
else
|
|
mid
|
|
}
|
|
}
|