Racket/Gissanumret: Skillnad mellan sidversioner
Från Täpp-Anders
Hoppa till navigeringHoppa till sök
Anders (diskussion | bidrag) Ingen redigeringssammanfattning |
Anders (diskussion | bidrag) Ingen redigeringssammanfattning |
||
| Rad 1: | Rad 1: | ||
<pre> | <pre> | ||
#lang racket | #lang racket | ||
| Rad 6: | Rad 5: | ||
(display "Din gissning? ") | (display "Din gissning? ") | ||
(define guess (string->number (read-line))) | (define guess (string->number (read-line))) | ||
(cond [(> number guess) (displayln " | (cond [(> number guess) (displayln "För lågt!") (inquire-user number)] | ||
[(< number guess) (displayln " | [(< number guess) (displayln "För högt!") (inquire-user number)] | ||
[else (displayln " | [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)) | (inquire-user (random 1 101)) | ||
</pre> | </pre> | ||
Versionen från 7 juli 2026 kl. 20.48
#lang racket
(define (inquire-user number)
(display "Din gissning? ")
(define guess (string->number (read-line)))
(cond [(> number guess) (displayln "För lågt!") (inquire-user number)]
[(< number guess) (displayln "För högt!") (inquire-user number)]
[else (displayln "Korrekt!")]))
(displayln "Gissa ett tal från 1 till och med 100.")
(inquire-user (random 1 101))
