Täpp-Anders - Senaste ändringarna [sv]

Racket/Fisher-Yates Shuffle

Anders — Mon, 18 May 2026 14:11:41 GMT

← Äldre version		Versionen från 18 maj 2026 kl. 14.11
Rad 1:		Rad 1:
			<pre>

	#lang racket		#lang racket

Rad 14:		Rad 16:
	;; Exempel:		;; Exempel:
	(fisher-yates '(1 2 3 4 5 6 7 8 9 10))		(fisher-yates '(1 2 3 4 5 6 7 8 9 10))

			</pre>

Racket/Fisher-Yates Shuffle

Anders — Mon, 18 May 2026 14:11:24 GMT

Skapade sidan med '#lang racket ;; Fisher-Yates shuffle för en lista (modern version, O(n)) (define (fisher-yates lst) (let ([v (list->vector lst)]) ; Konvertera till vektor för effektiv mutation (for ([i (in-range (sub1 (vector-length v)) -1 -1)]) ; från n-1 ner till 1 (let ([j (random (add1 i))]) ; slumpmässigt index 0 till i (inklusive) ;; Byt plats mellan i och j (let ([temp (vector-ref v i)]) (vector-set! v i (vector-ref v j))...'

Ny sida

#lang racket

;; Fisher-Yates shuffle för en lista (modern version, O(n))
(define (fisher-yates lst)
(let ([v (list->vector lst)]) ; Konvertera till vektor för effektiv mutation
(for ([i (in-range (sub1 (vector-length v)) -1 -1)]) ; från n-1 ner till 1
(let ([j (random (add1 i))]) ; slumpmässigt index 0 till i (inklusive)
;; Byt plats mellan i och j
(let ([temp (vector-ref v i)])
(vector-set! v i (vector-ref v j))
(vector-set! v j temp))))
(vector->list v))) ; Returnera som lista igen

;; Exempel:
(fisher-yates '(1 2 3 4 5 6 7 8 9 10))

Racket

Anders — Mon, 18 May 2026 14:11:17 GMT

Kodexempel (Sommarhack 2026)

← Äldre version		Versionen från 18 maj 2026 kl. 14.11
Rad 17:		Rad 17:
	# [[Racket/base24]]		# [[Racket/base24]]
	# [[Racket/Personreg]]		# [[Racket/Personreg]]
			# [[Racket/Fisher-Yates Shuffle]]
	# [[Racket/RLE]]		# [[Racket/RLE]]
	# [[Racket/Lille-GUI]]		# [[Racket/Lille-GUI]]

Fisher-Yates Shuffle

Anders — Mon, 18 May 2026 14:10:45 GMT

← Äldre version		Versionen från 18 maj 2026 kl. 14.10
Rad 113:		Rad 113:
	}		}

			</pre>


			== Racket ==

			<pre>
			#lang racket

			;; Fisher-Yates shuffle för en lista (modern version, O(n))
			(define (fisher-yates lst)
			(let ([v (list->vector lst)]) ; Konvertera till vektor för effektiv mutation
			(for ([i (in-range (sub1 (vector-length v)) -1 -1)]) ; från n-1 ner till 1
			(let ([j (random (add1 i))]) ; slumpmässigt index 0 till i (inklusive)
			;; Byt plats mellan i och j
			(let ([temp (vector-ref v i)])
			(vector-set! v i (vector-ref v j))
			(vector-set! v j temp))))
			(vector->list v))) ; Returnera som lista igen

			;; Exempel:
			(fisher-yates '(1 2 3 4 5 6 7 8 9 10))
	</pre>		</pre>

Huvudsida

Anders — Mon, 18 May 2026 14:07:59 GMT

Särskilt utvalda sidor

← Äldre version		Versionen från 18 maj 2026 kl. 14.07
Rad 19:		Rad 19:

	= Särskilt utvalda sidor =		= Särskilt utvalda sidor =

			== Krypto ==

	* [[GPG]]		* [[GPG]]

	== Programmering ==		== Programmering ==