Racket/Gissanumret

#lang racket

(define (nummerfråga tal)
  (display "Din gissning? ")
  (define guess (string->number (read-line)))
  (cond [(> tal guess) (displayln "För lågt!") (nummerfråga tal)]
        [(< tal guess) (displayln "För högt!") (nummerfråga tal)]
        [else (displayln "Korrekt!")]))

(displayln "Gissa ett tal från 1 till och med 100.")
(nummerfråga (random 1 100))