From: daniel watson <ozzloy@gmail.com>
Date: Thu, 10 Mar 2016 05:45:12 +0000 (-0800)
Subject: make smaller function
X-Git-Url: http://challenge-bot.com/repos/?p=ozzloy%40gmail.com%2Frealm-of-racket-journey;a=commitdiff_plain;h=f6d6062c8969fbd6200a431b245b5cf6ef619d87

make smaller function
---

diff --git a/guess.rkt b/guess.rkt
index f5c9cca..587819b 100644
--- a/guess.rkt
+++ b/guess.rkt
@@ -6,3 +6,8 @@
 
 (define (guess)
   (quotient (+ lower upper) 2))
+
+(define (smaller)
+  (set! upper (max lower (sub1 (guess))))
+  (guess))
+