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

Forked from paste # 68358.

Fork as a new paste.

Paste viewed 260 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