PasteRack.org
Paste # 31183
2019-01-12 05:37:46

Forked from paste # 79899.

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. (bigger)
  20. (smaller)
  21.   (smaller)
  22.   (smaller)

=>

50

75

62

56

53