guess-the-number.rkt

#lang racket

;; f(x) = x + 1
(define (f x) (+ x 1))

;; g(x) = x*x + 1
(define (g x) (+ (* x x) 1))

(define (respond secret guess)
  (if (= secret guess)
      "you got it!"
      (if (< secret guess)
          "lower"
          "higher")))

(define (run-guess secret)
  (printf "Give me guess: ")
  (let ([the-guess (string->number (read-line))])
    (let ([the-response (respond secret the-guess)])
      (printf "response: ~a\n" the-response)
      (if (equal? "you got it!" the-response)
          "done"
          (run-guess secret)))))

(define (play-game)
  (let ([the-secret (random 100)])
    (run-guess the-secret)))