DT了有木有,不知道哪里思维转不过弯,这么一个小程序改了写,写了改......

Amyc posted @ 2013年8月23日 09:48 in scheme with tags Scheme , 1021 阅读

 

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

登录 *


loading captcha image...
(输入验证码)
or Ctrl+Enter