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 |
||
| (3 mellanliggande sidversioner av samma användare visas inte) | |||
| Rad 1: | Rad 1: | ||
<pre> | <pre>#lang racket | ||
(define (nummerfråga tal) | |||
(display "Din gissning? ") | |||
(define ( | |||
(display " | |||
(define guess (string->number (read-line))) | (define guess (string->number (read-line))) | ||
(cond [(> | (cond [(> tal guess) (displayln "För lågt!") (nummerfråga tal)] | ||
[(< | [(< tal guess) (displayln "För högt!") (nummerfråga tal)] | ||
[else (displayln " | [else (displayln "Korrekt!")])) | ||
(displayln "Gissa ett tal från 1 till och med 100.") | |||
(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))
