PasteRack.org
Paste # 50627
2019-01-12 05:35:32

Forked from paste # 28057.

Fork as a new paste.

Paste viewed 253 times.


Embed:

Realm of racket chap 2

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

=>

50

75