19 lines
458 B
Plaintext
19 lines
458 B
Plaintext
dim theArray(100)
|
|
global theArray
|
|
for i = 1 to 100
|
|
theArray(i) = i
|
|
next i
|
|
|
|
print binarySearch(80,30,90)
|
|
|
|
FUNCTION binarySearch(val, lo, hi)
|
|
IF hi < lo THEN
|
|
binarySearch = 0
|
|
ELSE
|
|
middle = (hi + lo) / 2
|
|
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
|