blob: ab050568bfdf5cbf286c879b6e51104ad139357f (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#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))
|