make bigger function

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

diff --git a/guess.rkt b/guess.rkt
index 587819bd5c253b432c27645350f0633821b69bef..922a8445b3af39612f52499b4ba7ce0bbb137425 100644 (file)
--- a/guess.rkt
+++ b/guess.rkt
@@ -11,3 +11,6 @@
   (set! upper (max lower (sub1 (guess))))
   (guess))
 
+(define (bigger)
+  (set! lower (min upper (add1 (guess))))
+  (guess))