summaryrefslogtreecommitdiffstats
path: root/net/ricketyspace
diff options
context:
space:
mode:
Diffstat (limited to 'net/ricketyspace')
-rw-r--r--net/ricketyspace/ror/two/guess.rkt21
1 files changed, 21 insertions, 0 deletions
diff --git a/net/ricketyspace/ror/two/guess.rkt b/net/ricketyspace/ror/two/guess.rkt
new file mode 100644
index 0000000..ab05056
--- /dev/null
+++ b/net/ricketyspace/ror/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))