PasteRack.org
Paste # 1879
2017-08-09 21:46:31

Fork as a new paste.

Paste viewed 18 times.


Embed:

smaller bigger snippet

#lang racket

(define (smaller)
  (set! upper (max lower (sub1 (guess))))
  (guess))

(define (bigger)
  (set! lower (min upper (add1 (guess))))
  (guess))