RosettaCodeData/Task/Binary-search/Octave/binary-search-2.octave

17 lines
311 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
function i = binsearch(array, value)
low = 1;
high = numel(array);
i = 0;
while ( low <= high )
mid = floor((low + high)/2);
if (array(mid) > value)
high = mid - 1;
elseif (array(mid) < value)
low = mid + 1;
else
i = mid;
return;
endif
endwhile
endfunction