RosettaCodeData/Task/Binary-search/Octave/binary-search-2.octave
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

16 lines
311 B
Text

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