projects
/
ozzloy@gmail.com
/
realm-of-racket-journey
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
21a6a6390f2689390897a6120ac294b2d76cc2eb
[ozzloy@gmail.com/realm-of-racket-journey]
/
guess.rkt
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
))
9
10
(
define
(
smaller
)
11
(
set
!
upper
(
max
lower
(
sub1
(
guess
))))
12
(
guess
))
13
14
(
define
(
bigger
)
15
(
set
!
lower
(
min
upper
(
add1
(
guess
))))
16
(
guess
))
17
18
(
define
(
start
n m
)
19
(
set
!
lower
(
min
n m
))
20
(
set
!
upper
(
max
n m
))
21
(
guess
))