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))