;; check-guess consumes two numbers are returns a symbol.
;;
;; (check-guess guess target)
;;  if guess is < target returns 'TooSmall
;;  if guess is < target returns 'TooLarge
;;  if guess is = target returns 'Perfect
;;
(define (check-guess guess target)
  (cond
    [(< guess target) 'TooSmall]
    [(> guess target) 'TooLarge]
    [ else 'Perfect]
    ))
;
; test function makes sure check-guess returns expected 
;  answer

(define (test-check-guess guess target expected)
  (symbol=? expected (check-guess guess target)))

;
; some tests
;
(test-check-guess 10 20 'TooSmall)
(test-check-guess 30 20 'TooLarge)
(test-check-guess 10 10 'Perfect)


;
; run with teachpack
;

(guess-with-gui check-guess)


; check-guess3
(define (check-guess3 ls mid ms target)
  (check-guess (+ ls (* 10 mid) (* 100 ms)) target))

(guess-with-gui-3 check-guess3)