add start function

[ozzloy@gmail.com/realm-of-racket-journey] / guess.rkt

diff --git a/guess.rkt b/guess.rkt
index f5c9cca75bb92929dbb3464e2461a38b230be02c..21a6a6390f2689390897a6120ac294b2d76cc2eb 100644 (file)
--- a/guess.rkt
+++ b/guess.rkt
@@ -6,3 +6,16 @@
 
 (define (guess)
   (quotient (+ lower upper) 2))
+
+(define (smaller)
+  (set! upper (max lower (sub1 (guess))))
+  (guess))
+
+(define (bigger)
+  (set! lower (min upper (add1 (guess))))
+  (guess))
+
+(define (start n m)
+  (set! lower (min n m))
+  (set! upper (max n m))
+  (guess))