PasteRack.org
Paste # 76968
2019-01-12 05:32:39

Forked from paste # 58005.

Fork as a new paste.

Paste viewed 259 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.   (geuess))
  17.  
  18. (guess)
  19.  
  20.  

=>

50