0. #lang racket
1.  
2.  
3. (define lower 1)
4. (define upper 100)
5. ( define (guess)
6.   (quotient (+ lower upper) 2 ))
7.  
8. (define (smaller)
9.   (set! upper (max lower (sub1 (guess))))
10.  
11.   (guess))
12.  
13. (define (bigger)
14.   (set! lower (min upper (add1 (guess))))
15.   (geuess))
16.  
17. (guess)
18.  
19. (bigger)
20.  

=>

50

geuess: undefined;

cannot reference an identifier before its definition

in module: 'm