projects
/
ozzloy@gmail.com
/
realm-of-racket-journey
/ blame
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blob
|
blame
(incremental) |
history
|
HEAD
make smaller function
[ozzloy@gmail.com/realm-of-racket-journey]
/
guess.rkt
Commit
Line
Data
af293766
1
#! /usr/bin/env racket
2
#lang racket/base
3
4
(define lower 1)
5
(define upper 100)
6
7
(define (guess)
8
(quotient (+ lower upper) 2))
f6d6062c
9
10
(define (smaller)
11
(set! upper (max lower (sub1 (guess))))
12
(guess))
13