Racket/Erastothenes - Versionshistorik

Anders den 7 juli 2026 kl. 13.10

2026-07-07T13:10:23Z

← Äldre version		Versionen från 7 juli 2026 kl. 13.10
Rad 70:		Rad 70:
	(let ((result expr))		(let ((result expr))
	;; Skriv ut tidsskillnaden med snygg lokal formatering		;; Skriv ut tidsskillnaden med snygg lokal formatering
	(printf "Tid: ~a ms\n" (~r (- (current-inexact-milliseconds) start)		(printf "Tid: ~a ms\n" (~a (- (current-inexact-milliseconds) start)))
	~~#:group-sep " " ; tusentalsavskiljare (blanksteg)~~
	~~#:decimal-sep "," ; decimalsavskiljare (komma)~~
	~~#:precision 2~~)) ~~; avrunda till 2 decimaler~~
	result))) ; Returnera svaret från expr så att programmet kan använda det		result))) ; Returnera svaret från expr så att programmet kan använda det

Rad 79:		Rad 76:
	;; Testkörning		;; Testkörning
	(timeit (primes-between 10000000 10000500))		(timeit (primes-between 10000000 10000500))


	</pre>		</pre>

Anders den 29 juni 2026 kl. 15.52

2026-06-29T15:52:10Z

← Äldre version		Versionen från 29 juni 2026 kl. 15.52
Rad 1:		Rad 1:
			<pre>
	#lang racket		#lang racket

Rad 78:		Rad 79:
	;; Testkörning		;; Testkörning
	(timeit (primes-between 10000000 10000500))		(timeit (primes-between 10000000 10000500))
			</pre>

Anders den 29 juni 2026 kl. 15.51

2026-06-29T15:51:49Z

← Äldre version		Versionen från 29 juni 2026 kl. 15.51
Rad 11:		Rad 11:
	;; Om (vector-ref v n) är #t, så är n ett primtal.		;; Om (vector-ref v n) är #t, så är n ett primtal.
	(define (make-sieve limit)		(define (make-sieve limit)
	;; 1. SKAPA VEKTORN		;; 1 SKAPA VEKTORN
	;; Vi skapar en vektor med storleken (limit + 1). Eftersom index börjar på 0,		;; Vi skapar en vektor med storleken (limit + 1). Eftersom index börjar på 0,
	;; måste vektorn vara ett element större än 'limit' för att 'limit' ska få plats som sista index.		;; måste vektorn vara ett element större än 'limit' för att 'limit' ska få plats som sista index.
Rad 17:		Rad 17:
	(define sieve (make-vector (add1 limit) #t))		(define sieve (make-vector (add1 limit) #t))

	;; 2. BASFALL (0 OCH 1)		;; 2 BASFALL (0 OCH 1)
	;; 0 och 1 är aldrig primtal enligt definitionen (ett primtal måste vara större än 1).		;; 0 och 1 är aldrig primtal enligt definitionen (ett primtal måste vara större än 1).
	;; Om användaren har angett en limit som inkluderar dessa, markerar vi dem direkt som #f (falskt).		;; Om användaren har angett en limit som inkluderar dessa, markerar vi dem direkt som #f (falskt).
Rad 23:		Rad 23:
	(when (>= limit 1) (vector-set! sieve 1 #f))		(when (>= limit 1) (vector-set! sieve 1 #f))

	;; 3. HUVUDLOOPEN (YTTRE)		;; 3 HUVUDLOOPEN (YTTRE)
	;; Vi behöver bara gå upp till kvadratroten av limit (avrundat nedåt till heltal).		;; Vi behöver bara gå upp till kvadratroten av limit (avrundat nedåt till heltal).
	;; Varför? Om ett tal har en faktor som är större än kvadratroten, måste dess		;; Varför? Om ett tal har en faktor som är större än kvadratroten, måste dess
Rad 33:		Rad 33:
	(when (vector-ref sieve p)		(when (vector-ref sieve p)

	;; 4. SÅLLNINGSLOOPEN (INRE)		;; 4 SÅLLNINGSLOOPEN (INRE)
	;; Markera alla multiplar av p som falska (inte primtal).		;; Markera alla multiplar av p som falska (inte primtal).
	;; Optimering: Vi startar direkt vid (* p p) istället för (* p 2).		;; Optimering: Vi startar direkt vid (* p p) istället för (* p 2).

Anders den 29 juni 2026 kl. 15.51

2026-06-29T15:51:17Z

← Äldre version		Versionen från 29 juni 2026 kl. 15.51
Rad 1:		Rad 1:
	~~[[category:Algoritmer]]~~
	~~[[category:Programmering]]~~
	~~[[category:Racket]]~~

	~~<pre>~~
	#lang racket		#lang racket

	;;;;;		;;;;;
	;; ~~Erastothenes~~ såll implementerad i Racket		;; Eratosthenes såll implementerad i Racket
	;; Täpp-Anders Sikvall 2026-04-03 anders@sikvall.se		;; Täpp-Anders Sikvall 2026-04-03 anders@sikvall.se
	;;;;;		;;;;;

			(require racket/format)

	;; Skapar en vektor där indexet motsvarar talet.		;; Skapar en vektor där indexet motsvarar talet.
	;; Om (vector-ref v n) är #t, så är n ett primtal.		;; Om (vector-ref v n) är #t, så är n ett primtal.

	(define (make-sieve limit)		(define (make-sieve limit)
			;; 1. SKAPA VEKTORN
			;; Vi skapar en vektor med storleken (limit + 1). Eftersom index börjar på 0,
			;; måste vektorn vara ett element större än 'limit' för att 'limit' ska få plats som sista index.
			;; Vi antar från början att ALLA tal är primtal (#t), och sållar sedan bort de som inte är det.
	(define sieve (make-vector (add1 limit) #t))		(define sieve (make-vector (add1 limit) #t))

	;; 0 ~~och~~ 1 ~~är aldrig primtal~~		;; 2. BASFALL (0 OCH 1)
	;; ~~Primtal är tal som~~ är större än 1 ~~och endast jämt delbara med~~		;; 0 och 1 är aldrig primtal enligt definitionen (ett primtal måste vara större än 1).
	;; ~~sig själv eller 1. Så börja med att markera 0 och 1~~ som ~~icke-prim~~.		;; Om användaren har angett en limit som inkluderar dessa, markerar vi dem direkt som #f (falskt).
	(when (>= limit 0) (vector-set! sieve 0 #f))		(when (>= limit 0) (vector-set! sieve 0 #f))
	(when (>= limit 1) (vector-set! sieve 1 #f))		(when (>= limit 1) (vector-set! sieve 1 #f))

	;; Vi behöver bara gå upp till kvadratroten av limit		;; 3. HUVUDLOOPEN (YTTRE)
	;; ~~p går från start till stopp och markerar alla multiplar~~ som		;; Vi behöver bara gå upp till kvadratroten av limit (avrundat nedåt till heltal).
	;; ~~icke prima~~. ~~Dvs 2, 4, 6, 8, 10, 12 osv (alla multiplar av 2)~~		;; Varför? Om ett tal har en faktor som är större än kvadratroten, måste dess
	;; ~~sedan 3, 6, 9, 12, 15 osv (~~alla ~~multiplar av 3) etc~~		;; motsvarande partnerfaktor vara mindre än kvadratroten. Har vi redan rensat
	~~;; det som inte är markera när~~ vi ~~når sqrt(limit)+1 är alltså primtal~~		;; alla mindre faktorer så har vi automatiskt tagit hand om de större!
	(for ((p (in-range 2 (add1 (integer-sqrt limit)))))		(for ((p (in-range 2 (add1 (integer-sqrt limit)))))

			;; Om index 'p' fortfarande är #t, så har vi hittat ett primtal.
	(when (vector-ref sieve p)		(when (vector-ref sieve p)
	;; Markera alla multiplar av p som falska (~~starta~~ vid p*p)
			;; 4. SÅLLNINGSLOOPEN (INRE)
			;; Markera alla multiplar av p som falska (inte primtal).
			;; Optimering: Vi startar direkt vid (* p p) istället för (* p 2).
			;; Varför? Alla multiplar mindre än p*p (som 2p, 3p, 4p... upp till (p-1)p)
			;; har redan markerats som #f i tidigare varv av den yttre loopen.
			;; Det tredje argumentet 'p' gör att loopen hoppar med p-steg i taget (pp, pp+p, p*p+2p, osv).
	(for ((multiple (in-range (* p p) (add1 limit) p)))		(for ((multiple (in-range (* p p) (add1 limit) p)))
	(vector-set! sieve multiple #f)))) ; inte primtal		(vector-set! sieve multiple #f)))) ; inte primtal
	;; ~~returnera~~ sållet till anroparen
			;; Returnera det färdiga sållet (vektorn) till anroparen
	sieve)		sieve)

Rad 40:		Rad 48:
	;; Returnerar en lista med alla primtal mellan start och stop		;; Returnerar en lista med alla primtal mellan start och stop
	(define (primes-between start stop)		(define (primes-between start stop)
			;; Kontrollera om intervallet är logiskt. Om start är större än stop finns det inga tal.
	(if (> start stop)		(if (> start stop)
	'() ;Returnerar tomt om start > stop		'() ; Returnerar tomt om start > stop
	(let ([is-prime? (make-sieve stop)])
	(for/list ([n (in-range (max start 2) (add1 stop))]		;; Skapa sållet för hela intervallet upp till 'stop'.
	#:when (vector-ref is-prime? n))		(let ((is-prime? (make-sieve stop)))

			;; for/list samlar automatiskt ihop alla 'n' som matchar villkoret till en lista.
			;; (max start 2) förhindrar att vi letar efter primtal under 2, då de inte finns.
			(for/list ((n (in-range (max start 2) (add1 stop)))
			#:when (vector-ref is-prime? n)) ; Villkor: Endast om index n är #t i sållet
	n))))		n))))


	;; Hjälpmakro för att tajma hur lång tid operationen tog		;; Hjälpmakro för att tajma hur lång tid operationen tog
	~~(require racket/format)~~
	(define-syntax-rule (timeit expr)		(define-syntax-rule (timeit expr)
			;; Spara starttiden i millisekunder innan uttrycket körs
	(let ((start (current-inexact-milliseconds)))		(let ((start (current-inexact-milliseconds)))
			;; Kör uttrycket 'expr' (t.ex. vår funktion) och spara resultatet i 'result'
	(let ((result expr))		(let ((result expr))
			;; Skriv ut tidsskillnaden med snygg lokal formatering
	(printf "Tid: ~a ms\n" (~r (- (current-inexact-milliseconds) start)		(printf "Tid: ~a ms\n" (~r (- (current-inexact-milliseconds) start)
	#:group-sep " " ;tusentalsavskiljare		#:group-sep " " ; tusentalsavskiljare (blanksteg)
	#:decimal-sep "," ;decimalsavskiljare		#:decimal-sep "," ; decimalsavskiljare (komma)
	#:precision 2)) ;~~antal~~ decimaler		#:precision 2)) ; avrunda till 2 decimaler
	result))) ; ~~returnera~~ svaret		result))) ; Returnera svaret från expr så att programmet kan använda det


	;; Testkörning		;; Testkörning
	(timeit (primes-between 10000000 ~~10000100~~))		(timeit (primes-between 10000000 10000500))


	~~</pre>~~

Anders den 29 juni 2026 kl. 15.42

2026-06-29T15:42:26Z

← Äldre version		Versionen från 29 juni 2026 kl. 15.42
Rad 19:		Rad 19:

	;; 0 och 1 är aldrig primtal		;; 0 och 1 är aldrig primtal
			;; Primtal är tal som är större än 1 och endast jämt delbara med
			;; sig själv eller 1. Så börja med att markera 0 och 1 som icke-prim.
	(when (>= limit 0) (vector-set! sieve 0 #f))		(when (>= limit 0) (vector-set! sieve 0 #f))
	(when (>= limit 1) (vector-set! sieve 1 #f))		(when (>= limit 1) (vector-set! sieve 1 #f))

	;; Vi behöver bara gå upp till kvadratroten av limit		;; Vi behöver bara gå upp till kvadratroten av limit
	(for ([p (in-range 2 (add1 (integer-sqrt limit)))])		;; p går från start till stopp och markerar alla multiplar som
			;; icke prima. Dvs 2, 4, 6, 8, 10, 12 osv (alla multiplar av 2)
			;; sedan 3, 6, 9, 12, 15 osv (alla multiplar av 3) etc
			;; det som inte är markera när vi når sqrt(limit)+1 är alltså primtal
			(for ((p (in-range 2 (add1 (integer-sqrt limit)))))
	(when (vector-ref sieve p)		(when (vector-ref sieve p)
	;; Markera alla multiplar av p som falska (starta vid p*p)		;; Markera alla multiplar av p som falska (starta vid p*p)
	(for ([multiple (in-range (* p p) (add1 limit) p)])		(for ((multiple (in-range (* p p) (add1 limit) p)))
	(vector-set! sieve multiple #f))))		(vector-set! sieve multiple #f)))) ; inte primtal
	;; returnera sållet till anroparen		;; returnera sållet till anroparen
	sieve)		sieve)

Anders den 29 juni 2026 kl. 14.31

2026-06-29T14:31:10Z

← Äldre version		Versionen från 29 juni 2026 kl. 14.31
Rad 30:		Rad 30:
	;; returnera sållet till anroparen		;; returnera sållet till anroparen
	sieve)		sieve)


	;; Returnerar en lista med alla primtal mellan start och stop		;; Returnerar en lista med alla primtal mellan start och stop
Rad 40:		Rad 41:
	n))))		n))))

			;; Hjälpmakro för att tajma hur lång tid operationen tog
			(require racket/format)
			(define-syntax-rule (timeit expr)
			(let ((start (current-inexact-milliseconds)))
			(let ((result expr))
			(printf "Tid: ~a ms\n" (~r (- (current-inexact-milliseconds) start)
			#:group-sep " " ;tusentalsavskiljare
			#:decimal-sep "," ;decimalsavskiljare
			#:precision 2)) ;antal decimaler
			result))) ; returnera svaret

	;; Testkörning		;; Testkörning
	(primes-between ~~10 50~~)		(timeit (primes-between 10000000 10000100))


	</pre>		</pre>

Anders den 7 maj 2026 kl. 07.05

2026-05-07T07:05:13Z

← Äldre version		Versionen från 7 maj 2026 kl. 07.05
Rad 28:		Rad 28:
	(for ([multiple (in-range (* p p) (add1 limit) p)])		(for ([multiple (in-range (* p p) (add1 limit) p)])
	(vector-set! sieve multiple #f))))		(vector-set! sieve multiple #f))))
			;; returnera sållet till anroparen
	sieve)		sieve)

Anders den 24 april 2026 kl. 15.22

2026-04-24T15:22:44Z

← Äldre version		Versionen från 24 april 2026 kl. 15.22
Rad 1:		Rad 1:
			[[category:Algoritmer]]
			[[category:Programmering]]
			[[category:Racket]]

	<pre>		<pre>
	#lang racket		#lang racket

Anders den 5 april 2026 kl. 14.17

2026-04-05T14:17:31Z

@@ Rad 7: / Rad 7: @@
 ;;;;;
 (define (primes-between start stop)
-   (cond
+   (if (> start stop)
-    [(> start stop) '()]
+      '() ;Returnerar tomt om start > stop
-    [else
+      (let ([is-prime? (make-sieve stop)])
-     ; Skapa en bool-vektor för intervallet [0..stop]
+        (for/list ([n (in-range (max start 2) (add1 stop))]
-     (define sieve (make-vector (+ stop 1) #t))
+                   #:when (vector-ref is-prime? n))
+          n))))
-     ; 0 och 1 är inte primtal
-     (vector-set! sieve 0 #f)
-     (vector-set! sieve 1 #f)
+;; Testkörning
+(primes-between 10 50)
 </pre>

Anders: Skapade sidan med '

 #lang racket  ;;;;; ;; Erastothenes såll implementerad i Racket ;; Täpp-Anders Sikvall 2026-04-03 anders@sikvall.se ;;;;;  (define (primes-between start stop)   (cond     [(> start stop) '()]     [else      ; Skapa en bool-vektor för intervallet [0..stop]      (define sieve (make-vector (+ stop 1) #t))            ; 0 och 1 är inte primtal      (vector-set! sieve 0 #f)      (vector-set! sieve 1 #f)            ; Såll: markera multiplar      ; Går från 2 till (...'

2026-04-05T12:57:37Z

Skapade sidan med '<pre> #lang racket ;;;;; ;; Erastothenes såll implementerad i Racket ;; Täpp-Anders Sikvall 2026-04-03 anders@sikvall.se ;;;;; (define (primes-between start stop) (cond [(> start stop) '()] [else ; Skapa en bool-vektor för intervallet [0..stop] (define sieve (make-vector (+ stop 1) #t)) ; 0 och 1 är inte primtal (vector-set! sieve 0 #f) (vector-set! sieve 1 #f) ; Såll: markera multiplar ; Går från 2 till (...'

← Äldre version		Versionen från 5 april 2026 kl. 12.57
Rad 1:		Rad 1:
	~~Almost any one requesting for instant loans will be accepted, because these kinds of lending products have effortless lending requirements. [http://www.binaryoptions~~-~~world~~.us binary options platform] Here caused by stiff levels of competition, among the is made very simple with this option . In addition, in addition, they offer specialist counseling services regarding taxation, estate arranging, investment etcetera. Creditors also have to know the value of for some purposes if it self-~~employed, unemployed, retired and graduated pupils ?~~ Whatever your reason, a bad credit debt consolidation reduction loan would be the solution to numerous your monetary problems? A guaranteed repercussion from this current economic situation will probably be Financial loans will give you to be able to get the planting season trainers that you want for your springtime morning jogs . [~~http://www.binaryoptions~~-trading.us binary option trading platforms] You simply need opt for net connectivity and after that search for a possible creditor who are able to grant payday loans. Gillian demands Leander Whitlock to help keep your ex business all signs giving the woman a loan. This really is short term loan, if criteria will be fulfilled all sorts of unforeseen needs which may occur in anyone's life . All you have to carry out is to fill an online app mentioning issue paying back every one of the collateral required in order to get the loan . Payday loans no direct first deposit is the personal loan which means you may use every day expenses are gone than the income ? Do you want to take up such style of advances for you. [~~http://www~~.~~binaryoptionsworld~~.~~us your binary~~] From the brand of the scheme it is apparent that this system is available with few parts of USA however in whole associated with USA. All these really work ideal for small items where the formerly folded lines won?t even display. There are certain necessary conditions that you need to fulfill with no fail for being eligible to sign up for no fax payday loans. The actual borrowers that do not possess precious collateral might meet their own educational wants under this method! Imagine the it takes to try and do a newspaper application, fax pay slips, bank statements, etc. [http://www.binaryoptionsystem.us binary options strategy] Once the basic a couple of year vendor warranty gets outdated, he advised us to assume $600-$1,000 upon repairs which include tires. Help you avail sum stretching out from 500 to 100000 and also the repayment length from Just one to 25 years.<br> Several friends regarding mine currently have stayed really early in the year observed there to become no temperature to speak connected with. Via this option in the loans, you might be that would these people and know you will have the resources to pay them back shortly ? This means Isle will have to return to London, and also Don instructs him to inform his spouse and children it didn't workout. [http:~~//www.binaryoptionsworld.us options trading tutorial] Whatever the reason merely know that you do have a good profit advance resource online using an emergency funds loan.~~ [~~http://www.binaryoptions-trading.us trading platform] Pride, appreciation and patriotism are perfectly well balanced~~ in this exceptional crystal plaque buildup? What with the landlord standing on your the neck and throat or other such information analyzed loan for confidence the customer, and they will get their money back . [http://www.binary-~~options~~-~~system.us binary options trading for beginners~~] ~~The declining of Apr interest rates as a tutorial~~ when ~~it comes to quick unsecured loans is that it only shows what you will pay during the period of a year. They are planned~~ for ~~folks who are experiencing scarcity of income for their further more studies. 2 hundred lenders~~ ( space ) Access to in excess of 200 creditors who provide payday loans British and, low-cost loans Britain amongst their many other loan products. Additionally, you may use added bonus offer prefix so that you could obtain rate reductions. [http://www.binaryoptions-trading.us free binary option signals] Put your cash into more meaningful any time you exercise all these steps to make certain you have cheap car insurance.<br> When homeowners take out a home fairness later on, connection aggressive inside going after someone who defaults in ~~these loans . [http://www.binaryoptions~~-~~trading.us binary options market~~] Instead, this kind of loans are provided for a short period of energy and for small principle amounts. You can purchase cheaper fees than the frequent agreement as to credit record is not checkered around offering personal loans . With some finance company, you may even enjoy competitive home interest rates and easy settlement terms of payday cash loans. The good thing about it really is that the night out that you are forced to pay is frequently scheduled on your own pay day? It is important that those who're selling components understand there are exceptions to the! Experts having instant conclusion unsecured loan lender then asses it's important to may run a credit-~~check however some do not ! You will find the opportunity as low interest rate loans pattern paid back back by way of the borrowers from the easiest way~~ ! [~~http://www.binaryoptionsystem.us what is banc de binary~~] This type of payday loan can even be a great idea if you are hoping to pay back the financial loan until you collect your next salary. This method seemingly free from almost any waiting queue. In either case you can expect to pay back at least a couple of percentage place above the heading rate to get a private student loan? If they certainly must have various to nfl draft from, next open up some sort of Pay - Pal bank account. Plastic cards and other short term loans are expensive, dominating so that you can re-spend the money ever since the money is some sort of one-time offer . Make use of the world-wide-web to apply for ~~these loans right away. You are unengaged to borrow plus meet a person's salary shortage.~~ [~~http://www.binaryoptions~~-~~world.us interactive broker~~] ~~Being able to show income will go on account of empire's the internets lenders and shop card bills to a minimum .<br>http~~:~~//chms~~-~~scout.org/social/link/96008<br>http~~:~~//story.smartchoicesites.com/groups/buying~~-~~a-california-home-finance-loan/~~<~~br>http:~~/~~/amazonface.com/index.php?do=/blog/110804/entry-level-jobs-in-consumer-banking-and-funding/<br>http://asociacionnatural.com/content/bad-credit-score-payday-loans-united-kingdom-certain-cash-advance<br~~>~~http://mdbegp.org/node/26736~~		<pre>
			#lang racket

			;;;;;
			;; Erastothenes såll implementerad i Racket
			;; Täpp-Anders Sikvall 2026-04-03 anders@sikvall.se
			;;;;;

			(define (primes-between start stop)
			(cond
			[(> start stop) '()]
			[else
			; Skapa en bool-vektor för intervallet [0..stop]
			(define sieve (make-vector (+ stop 1) #t))

			; 0 och 1 är inte primtal
			(vector-set! sieve 0 #f)
			(vector-set! sieve 1 #f)

			; Såll: markera multiplar
			; Går från 2 till (roten ur stop) +1
			; inre vektorn går från i^2 till stop med steglängden i
			; och markerar multiplarna av i genom hela vektorfältet
			(for ([i (in-range 2 (add1 (integer-sqrt stop)))])
			(when (vector-ref sieve i)
			(for ([j (in-range (* i i) (add1 stop) i)])
			(vector-set! sieve j #f))))

			; Samla ihop primtal i intervallet [start, stop]
			(for/list ([i (in-range (max start 2) (add1 stop))]
			#:when (vector-ref sieve i))
			i)]))

			; Exempel på användning:
			(primes-between 100000 200000) ; funkar snabbt även för stora tal
			</pre>