projects
/
ozzloy@gmail.com
/
realm-of-racket-journey
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
start notes on conditions
[ozzloy@gmail.com/realm-of-racket-journey]
/
guess.rkt
diff --git
a/guess.rkt
b/guess.rkt
index 587819bd5c253b432c27645350f0633821b69bef..21a6a6390f2689390897a6120ac294b2d76cc2eb 100644
(file)
--- a/
guess.rkt
+++ b/
guess.rkt
@@
-11,3
+11,11
@@
(set! upper (max lower (sub1 (guess))))
(guess))
+(define (bigger)
+ (set! lower (min upper (add1 (guess))))
+ (guess))
+
+(define (start n m)
+ (set! lower (min n m))
+ (set! upper (max n m))
+ (guess))