RosettaCodeData/Task/Binary-search/BASIC256/binary-search-1.basic
2023-07-01 13:44:08 -04:00

10 lines
376 B
Text

function binarySearchR(array, valor, lb, ub)
if ub < lb then
return false
else
mitad = floor((lb + ub) / 2)
if valor < array[mitad] then return binarySearchR(array, valor, lb, mitad-1)
if valor > array[mitad] then return binarySearchR(array, valor, mitad+1, ub)
if valor = array[mitad] then return mitad
end if
end function