diff options
Diffstat (limited to 'two')
| -rw-r--r-- | two/guess.rkt | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/two/guess.rkt b/two/guess.rkt deleted file mode 100644 index ab05056..0000000 --- a/two/guess.rkt +++ /dev/null @@ -1,21 +0,0 @@ -#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)) |