PasteRack.org
Paste # 79899
2019-01-12 05:37:13

Forked from paste # 68358.

Fork as a new paste.

Paste viewed 262 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. (bigger)
  20. (smaller)
  21.   (smaller)

=>

50

75

62

56