add start function

diff --git a/guess.rkt b/guess.rkt
index 922a8445b3af39612f52499b4ba7ce0bbb137425..21a6a6390f2689390897a6120ac294b2d76cc2eb 100644 (file)
--- a/guess.rkt
+++ b/guess.rkt
@@ -14,3 +14,8 @@
 (define (bigger)
   (set! lower (min upper (add1 (guess))))
   (guess))
+
+(define (start n m)
+  (set! lower (min n m))
+  (set! upper (max n m))
+  (guess))