11 lines
426 B
Scheme
11 lines
426 B
Scheme
(define (binary-search value vector)
|
|
(let helper ((low 0)
|
|
(high (- (vector-length vector) 1)))
|
|
(if (< high low)
|
|
#f
|
|
(let ((middle (quotient (+ low high) 2)))
|
|
(cond ((> (vector-ref vector middle) value)
|
|
(helper low (- middle 1)))
|
|
((< (vector-ref vector middle) value)
|
|
(helper (+ middle 1) high))
|
|
(else middle))))))
|