Racket/Gissanumret

Från Täpp-Anders

Version från den 7 juli 2026 kl. 20.43 av 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>')

(skillnad) ← Äldre version | Nuvarande version (skillnad) | Nyare version → (skillnad)

Hoppa till navigering Hoppa till sök


#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))

Hämtad från ”http://wiki.sikvall.se/index.php?title=Racket/Gissanumret&oldid=1930”

Navigeringsmeny