From: daniel watson Date: Thu, 28 Jul 2016 19:28:56 +0000 (-0700) Subject: add start function X-Git-Url: http://challenge-bot.com/repos/?p=ozzloy%40gmail.com%2Frealm-of-racket-journey;a=commitdiff_plain;h=6a227e987e1ad5d2c702feb913a7cc686d0f1888 add start function --- diff --git a/guess.rkt b/guess.rkt index 922a844..21a6a63 100644 --- a/guess.rkt +++ b/guess.rkt @@ -14,3 +14,8 @@ (define (bigger) (set! lower (min upper (add1 (guess)))) (guess)) + +(define (start n m) + (set! lower (min n m)) + (set! upper (max n m)) + (guess))