[ozzloy@gmail.com/realm-of-racket-journey] / guess.rkt

#! /usr/bin/env racket
#lang racket/base

(define lower 1)
(define upper 100)

(define (guess)
  (quotient (+ lower upper) 2))

(define (smaller)
  (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))
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
6b4acb7e	14	(define (bigger)
	15	(set! lower (min upper (add1 (guess))))
	16	(guess))
6a227e98	17
	18	(define (start n m)
	19	(set! lower (min n m))
	20	(set! upper (max n m))
	21	(guess))