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
add start function
[ozzloy@gmail.com/realm-of-racket-journey]
/
guess.rkt
diff --git
a/guess.rkt
b/guess.rkt
index 922a8445b3af39612f52499b4ba7ce0bbb137425..21a6a6390f2689390897a6120ac294b2d76cc2eb 100644
(file)
--- a/
guess.rkt
+++ b/
guess.rkt
@@
-14,3
+14,8
@@
(define (bigger)
(set! lower (min upper (add1 (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))