From 9d23e66fe8332abc7a1bbd9022f3e58e1133b3fb Mon Sep 17 00:00:00 2001 From: rsiddharth Date: Fri, 3 Jul 2020 15:49:09 -0400 Subject: name directories like the realm repo. --- chapter2/guess.rkt | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 chapter2/guess.rkt (limited to 'chapter2') diff --git a/chapter2/guess.rkt b/chapter2/guess.rkt new file mode 100644 index 0000000..ab05056 --- /dev/null +++ b/chapter2/guess.rkt @@ -0,0 +1,21 @@ +#lang racket + +(define lower 1) + +(define upper 100) + +(define (start n m) + (set! lower (min n m)) + (set! upper (max n m)) + (guess)) + +(define (guess) + (quotient (+ lower upper) 2)) + +(define (smaller) + (set! upper (max lower (sub1 (guess)))) + (guess)) + +(define (bigger) + (set! lower (min upper (add1 (guess)))) + (guess)) -- cgit v1.2.3