projects / ozzloy@gmail.com / realm-of-racket-journey / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: af29376)
make smaller function
authordaniel watson <ozzloy@gmail.com>
Thu, 10 Mar 2016 05:45:12 +0000 (21:45 -0800)
committerdaniel watson <ozzloy@gmail.com>
Thu, 10 Mar 2016 05:45:12 +0000 (21:45 -0800)
guess.rkt patch | blob | blame | history

diff --git a/guess.rkt b/guess.rkt
index f5c9cca75bb92929dbb3464e2461a38b230be02c..587819bd5c253b432c27645350f0633821b69bef 100644 (file)
--- 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))
+