Racket/Gissanumret

#lang racket

(define (inquire-user number)
  (display "Din gissning? ")
  (define guess (string->number (read-line)))
  (cond [(> number guess) (displayln "Too low") (inquire-user number)]
        [(< number guess) (displayln "Too high") (inquire-user number)]
        [else (displayln "Correct!")]))

(displayln "Gissa ett tal från 1 till och med 100.")
(inquire-user (random 1 101))