From: daniel watson Date: Thu, 10 Mar 2016 05:46:30 +0000 (-0800) Subject: make bigger function X-Git-Url: http://challenge-bot.com/repos/?p=ozzloy%40gmail.com%2Frealm-of-racket-journey;a=commitdiff_plain;h=6b4acb7e0c4460582e9df501ff1cc74841920d1d make bigger function --- diff --git a/guess.rkt b/guess.rkt index 587819b..922a844 100644 --- 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))