From 0f072be231d0bd875d1c87ff127834e60979263a Mon Sep 17 00:00:00 2001 From: rsiddharth Date: Fri, 3 Jul 2020 15:47:02 -0400 Subject: net/ricketyspace/ror -> ./ --- two/guess.rkt | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 two/guess.rkt (limited to 'two') diff --git a/two/guess.rkt b/two/guess.rkt new file mode 100644 index 0000000..ab05056 --- /dev/null +++ b/two/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