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
make smaller function
[ozzloy@gmail.com/realm-of-racket-journey]
/
guess.rkt
diff --git
a/guess.rkt
b/guess.rkt
index f5c9cca75bb92929dbb3464e2461a38b230be02c..587819bd5c253b432c27645350f0633821b69bef 100644
(file)
--- a/
guess.rkt
+++ b/
guess.rkt
@@
-6,3
+6,8
@@
(define (guess)
(quotient (+ lower upper) 2))
+
+(define (smaller)
+ (set! upper (max lower (sub1 (guess))))
+ (guess))
+