(define (game min max) | |
(let* ((guess (floor (/ (+ min max) 2))) | |
(hl (begin (format #t "is your number ~a?\n(h)igher/(l)ower/(c)orrect: " guess) (read)))) | |
(cond | |
((eq? hl 'h) (game guess max)) | |
((eq? hl 'l) (game min guess)) | |
((eq? hl 'c) (format #t "I win!\n")) | |
(else (game min max))))) | |
(game 0 100) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment