Huvudsakliga offentliga loggar

Från Täpp-Anders
Hoppa till navigeringHoppa till sök

Kombinerad visning av alla tillgängliga loggar för Täpp-Anders. Du kan avgränsa sökningen och få färre träffar genom att ange typ av logg, användarnamn (skiftlägeskänsligt), eller berörd sida (också skiftlägeskänsligt).

Loggar
  • 5 april 2026 kl. 12.57 Anders diskussion bidrag skapade sidan Racket/Erastothenes (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 (...')
  • 5 april 2026 kl. 12.57 Anders diskussion bidrag raderade sidan Racket/Erastothenes (Författarens begäran: Före radering: "<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...)
  • 3 april 2026 kl. 23.07 Anders diskussion bidrag skapade sidan Racket/Erastothenes (Skapade sidan med '<pre> #lang racket (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 multiplar...')