summaryrefslogtreecommitdiffstats
path: root/two/guess.rkt
diff options
context:
space:
mode:
Diffstat (limited to 'two/guess.rkt')
-rw-r--r--two/guess.rkt21
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))