Racket/Gissanumret: Skillnad mellan sidversioner

Från Täpp-Anders
Hoppa till navigeringHoppa till sök
← Äldre redigering
Ingen redigeringssammanfattning
Ingen redigeringssammanfattning
 
(En mellanliggande sidversion av samma användare visas inte)
Rad 1: Rad 1:
<pre>
<pre>#lang racket
#lang racket


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


(displayln "Gissa ett tal från 1 till och med 100.")
(displayln "Gissa ett tal från 1 till och med 100.")
(inquire-user (random 1 101))
(nummerfråga (random 1 100))
 
</pre>
</pre>

Nuvarande version från 8 juli 2026 kl. 13.31

#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))
Hämtad från ”http://wiki.sikvall.se/index.php?title=Racket/Gissanumret&oldid=1934”