From f6d6062c8969fbd6200a431b245b5cf6ef619d87 Mon Sep 17 00:00:00 2001
From: daniel watson <ozzloy@gmail.com>
Date: Wed, 9 Mar 2016 21:45:12 -0800
Subject: [PATCH] make smaller function

---
 guess.rkt | 5 +++++
 1 file changed, 5 insertions(+)

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))
+
-- 
2.30.2