Racket/Gissanumret: Skillnad mellan sidversioner
Från Täpp-Anders
Hoppa till navigeringHoppa till sök
Anders (diskussion | bidrag) Skapade sidan med '<pre> #lang racket (define (inquire-user number) (display "Insert a number: ") (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 "Guess a number between 1 and 100") (inquire-user (random 1 101)) </pre>' |
Anders (diskussion | bidrag) Ingen redigeringssammanfattning |
||
| Rad 4: | Rad 4: | ||
(define (inquire-user number) | (define (inquire-user number) | ||
(display " | (display "Din gissning? ") | ||
(define guess (string->number (read-line))) | (define guess (string->number (read-line))) | ||
(cond [(> number guess) (displayln "Too low") (inquire-user number)] | (cond [(> number guess) (displayln "Too low") (inquire-user number)] | ||
| Rad 10: | Rad 10: | ||
[else (displayln "Correct!")])) | [else (displayln "Correct!")])) | ||
(displayln " | (displayln "Gissa ett tal från 1 till och med 100.") | ||
(inquire-user (random 1 101)) | (inquire-user (random 1 101)) | ||
Versionen från 7 juli 2026 kl. 20.44
#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))
