DT了有木有，不知道哪里思维转不过弯，这么一个小程序改了写，写了改......
Posted on 2013年8月23日 09:48
(define (BS lst rst)
(define mid (/ (+ lst rst) 2))
(if (< (- rst lst) 1)
lst
(if (ok mid)
(BS lst mid)
(BS mid rst))))
(define ans 5)
(define (ok mid)
(if (> mid 50)
#t
#f))