blob: ab050568bfdf5cbf286c879b6e51104ad139357f (
plain) (
tree)
|
|
#lang racket
(define lower 1)
(define upper 100)
(define (start n m)
(set! lower (min n m))
(set! upper (max n m))
(guess))
(define (guess)
(quotient (+ lower upper) 2))
(define (smaller)
(set! upper (max lower (sub1 (guess))))
(guess))
(define (bigger)
(set! lower (min upper (add1 (guess))))
(guess))
|