20 lines
466 B
Plaintext
20 lines
466 B
Plaintext
dim theArray(100)
|
|
for i = 1 to 100
|
|
theArray(i) = i
|
|
next i
|
|
|
|
print binarySearch(80,30,90)
|
|
|
|
wait
|
|
|
|
FUNCTION binarySearch(val, lo, hi)
|
|
IF hi < lo THEN
|
|
binarySearch = 0
|
|
ELSE
|
|
middle = int((hi + lo) / 2):print middle
|
|
if val < theArray(middle) then binarySearch = binarySearch(val, lo, middle-1)
|
|
if val > theArray(middle) then binarySearch = binarySearch(val, middle+1, hi)
|
|
if val = theArray(middle) then binarySearch = middle
|
|
END IF
|
|
END FUNCTION
|