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

14 lines
330 B
Text

function i = binsearch_r(array, val, low, high)
if ( high < low )
i = 0;
else
mid = floor((low + high) / 2);
if ( array(mid) > val )
i = binsearch_r(array, val, low, mid-1);
elseif ( array(mid) < val )
i = binsearch_r(array, val, mid+1, high);
else
i = mid;
endif
endif
endfunction