Användarbidrag av Anders

Från Täpp-Anders
Resultat för Anders diskussion blockeringslogg uppladdningar loggar
En användare med 1 582 redigeringar. Konto skapat 31 januari 2013.
Hoppa till navigeringHoppa till sök
Sök efter användarbidragVisaDölj
⧼contribs-top⧽
⧼contribs-date⧽
(nyaste | äldsta) Visa (50 nyare | ) (20 | 50 | 100 | 250 | 500)

25 april 2026

24 april 2026

19 april 2026

11 april 2026

10 april 2026

7 april 2026

6 april 2026

5 april 2026

  • 14.175 april 2026 kl. 14.17 skillnad historik +62 Racket/Erastothenes Ingen redigeringssammanfattning
  • 13.015 april 2026 kl. 13.01 skillnad historik +7 320 N Racket/Posits Skapade sidan med '<pre> #lang racket ;;;;; ;; En enkel implementation av Posists eller Unum typ III ;; i Racket för skojs skull och för att lära sig mer ;; ;; Täpp-Anders Sikvall anders@sikvall.se 2026-04-04 ;; ;; Posit representeras som ett heltal (bitmönster, 0 till 2^n-1). ;; Parametrar: n = totalt antal bits, es = antal exponent-bits (t.ex. n=16, es=1 för posit16). ;; Innehåller: ;; * Konvertering till/från generiska tal (number->posit och posit->number) ;; * Addition, subt...'
  • 13.015 april 2026 kl. 13.01 skillnad historik +9 924 N Racket/Neural Skapade sidan med '<pre> #lang racket ;;;;; ;; Neuralt nät implementerad i Racket ;; Täpp-Anders Sikvall 2026-04-03 anders@sikvall.se ;;;;; ;;;;; NEURALT NÄT ;;; ;; Detta program implementerar ett litet neuralt nät och tränar det på sannings- ;; tabellen för XOR. Efter några tusen epoker ska prediktionerna ligga extremt nära ;; följande: ;; ;; a,b → a XOR b ;; 0,0 → 0 ;; 0,1 → 1 ;; 1,0 → 1 ;; 1,1 → 0 ;; ;; Implementationen har två input-neuroner för a...'
  • 13.005 april 2026 kl. 13.00 skillnad historik +3 437 N Racket/Genetic Skapade sidan med '<pre> #lang racket ;;;;; ;; Genetisk algoritm implementerad i Racket ;; Täpp-Anders Sikvall 2026-04-03 anders@sikvall.se ;;;;; ;; ================================================================ ;; Genetisk algoritm – Hitta kromosom med: ;; 1. De första 10 bitarna = 1 ;; 2. Totalt antal 1:or så nära 50 som möjligt ;; ================================================================ ;; --------------------- Parametrar --------------------- (define populatio...'
  • 12.595 april 2026 kl. 12.59 skillnad historik +2 737 N Racket/Lille-GUI Skapade sidan med '<pre> #lang racket/gui ;;;;; ;; Riktigt Enkelt GUI-Demo implementerad i Racket ;; Täpp-Anders Sikvall 2026-04-03 anders@sikvall.se ;;;;; ;; Skapa huvudfönstret (define frame (new frame% [label "Racket GUI Demo"] [width 520] [height 420])) ;; Meny (define menu-bar (new menu-bar% [parent frame])) (define menu-file (new menu% [label "Arkiv"] [parent menu-bar])) (new menu-item% [label "Öppna..."] [parent menu-file] [callback (λ (i e) (mess...'
  • 12.595 april 2026 kl. 12.59 skillnad historik +7 511 N Racket/Personreg Skapade sidan med '<pre> #lang racket ;;;;; ;; Enkel personinfodatabas implementerad i Racket ;; Täpp-Anders Sikvall 2026-04-03 anders@sikvall.se ;;;;; ;; Global lista som håller alla personer, just nu tom (define personer '()) ;; Skapa en person med namngivna parametrar (define (skapa-person #:förnamn förnamn #:efternamn efternamn #:ålder ålder #:stad [stad ""] ;Valfria parametrar med defaultvärden #:telefon [telefon ""])...'
  • 12.585 april 2026 kl. 12.58 skillnad historik +3 394 N Racket/Hexdump Skapade sidan med '<pre> #lang racket ;;;;; ;; Hexdump implementerad i Racket ;; Täpp-Anders Sikvall 2026-04-03 anders@sikvall.se ;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;; ;; SYNOPSIS ;; racket hexdump.rkt [ OPTIONS ] filename ;; ;; OPTIONS ;; -h Gives a short help text to the utility ;; --bytes-per-line, -n Determines how many bytes are decoded per line (default 16) ;; --hex, -x Show only hex dump ;; --ascii, -a...'
  • 12.575 april 2026 kl. 12.57 skillnad historik +1 080 N 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 (...'
  • 12.555 april 2026 kl. 12.55 skillnad historik +2 516 N Racket/Multitråd Skapade sidan med '<pre>#lang racket ;;;;; ;; Multitrådad demo ;; Täpp-Anders Sikvall, anders@sikvall.se, 2006-04-04 ;; Racketkurs. ;; Simulerar tidsödande arbete genom att pausa tråden en slumpmässig tid (define (random-sleep min-sec max-sec) (sleep (+ min-sec (* (random) (- max-sec min-sec))))) ;; En arbetare körs i en egen tråd och lyssnar på work-channel (define (start-worker id work-channel result-channel) (thread (λ () (let loop () ;; Vänta på att f...'
  • 12.355 april 2026 kl. 12.35 skillnad historik −24 Racket →Kodexempel (Sommarhack 2026)
(nyaste | äldsta) Visa (50 nyare | ) (20 | 50 | 100 | 250 | 500)
Hämtad från ”http://wiki.sikvall.se/index.php/Special:Bidrag/Anders”