PasteRack.org
Paste # 68358
2019-01-12 05:36:39

Forked from paste # 50627.

Fork as a new paste.

Paste viewed 255 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. (smaller)

=>

50

75

62