Racket/Gissanumret - Versionshistorik

Anders den 8 juli 2026 kl. 13.31

2026-07-08T13:31:24Z

← Äldre version		Versionen från 8 juli 2026 kl. 13.31
Rad 9:		Rad 9:

	(displayln "Gissa ett tal från 1 till och med 100.")		(displayln "Gissa ett tal från 1 till och med 100.")
	(nummerfråga (random 1 ~~101~~))		(nummerfråga (random 1 100))

	</pre>		</pre>

Anders den 7 juli 2026 kl. 20.53

2026-07-07T20:53:38Z

← Äldre version		Versionen från 7 juli 2026 kl. 20.53
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 101))

	</pre>		</pre>

Anders den 7 juli 2026 kl. 20.48

2026-07-07T20:48:00Z

← Äldre version		Versionen från 7 juli 2026 kl. 20.48
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 "~~Too low~~") (inquire-user number)]		(cond [(> number guess) (displayln "För lågt!") (inquire-user number)]
	[(< number guess) (displayln "~~Too high~~") (inquire-user number)]		[(< number guess) (displayln "För högt!") (inquire-user number)]
	[else (displayln "~~Correct~~!")]))		[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>

Anders den 7 juli 2026 kl. 20.44

2026-07-07T20:44:39Z

← Äldre version		Versionen från 7 juli 2026 kl. 20.44
Rad 4:		Rad 4:

	(define (inquire-user number)		(define (inquire-user number)
	(display "~~Insert a number:~~ ")		(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 "~~Guess a number between~~ 1 ~~and~~ 100")		(displayln "Gissa ett tal från 1 till och med 100.")
	(inquire-user (random 1 101))		(inquire-user (random 1 101))

Anders: Skapade sidan med '

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

2026-07-07T20:43:53Z

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>'

Ny sida

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