Nya sidor

7 april 2026

• 17.597 april 2026 kl. 17.59 Racket/3D-boll (historik | redigera) [6 313 byte] Anders (diskussion | bidrag) (Skapade sidan med '<pre> #lang racket (require plot) (require racket/pretty) ;; En pixelboll iracket ;; Från Buzzern skrivet under påskhelgen (define π (acos -1)) (define VERTICAL-SPLIT 16) (define HORIZONTAL-SPLIT 16) (define PARTICLE-SIZE (* VERTICAL-SPLIT HORIZONTAL-SPLIT)) (define particles (for/vector ([i (in-range PARTICLE-SIZE)]) (make-vector 3))) ;; from scheme.com since normal scheme lacks for/vector (define make-matrix (lambda (rows columns) (do ((...')
• 14.167 april 2026 kl. 14.16 Racket/Markov (historik | redigera) [6 620 byte] Anders (diskussion | bidrag) (Skapade sidan med '<pre> #lang racket ;;;;; ;; Markovkedja av tredje ordningen ;; ;; Tar en textfil eller stdin och bygger statistik över orden i tre gram ;; därefter producerar den en 150 ord lång text baserad på den statistiken ;; ;; Täpp-Anders Sikvall, anders@sikvall.se, 2026-04-07 ;;;;; (require racket/string racket/port) ;; ================================================ ;; MARKOVKEDJA – TREDJE ORDNINGEN (3-gram) ;; ===============================================...')
• 13.047 april 2026 kl. 13.04 Racket/base24 (historik | redigera) [3 033 byte] Anders (diskussion | bidrag) (Skapade sidan med '<pre> #lang racket ;;;;; ;; BASE24 encoder/decoder ;; Täpp-Anders Sikvall, anders@sikvall.se, 2026-04-97 ;; ;; USAGE ;; racket base24.rkt --encode < INPUT_FILE > OUTPUT_FILE ;; racket base24.rkt --decode < INPUT_FILE > OUTPUT_FILE ;; ;; COMMENT ;; This does not precede the coded data with any kind of header ;; and the error control and handling is abysmally minimal but ;; it shows the ease of implementing something like this...')

5 april 2026

• 13.015 april 2026 kl. 13.01 Racket/Posits (historik | redigera) [7 320 byte] Anders (diskussion | bidrag) (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 Racket/Neural (historik | redigera) [9 924 byte] Anders (diskussion | bidrag) (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 Racket/Genetic (historik | redigera) [3 437 byte] Anders (diskussion | bidrag) (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 Racket/Lille-GUI (historik | redigera) [2 737 byte] Anders (diskussion | bidrag) (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 Racket/Personreg (historik | redigera) [7 511 byte] Anders (diskussion | bidrag) (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 Racket/Hexdump (historik | redigera) [3 394 byte] Anders (diskussion | bidrag) (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 Racket/Erastothenes (historik | redigera) [1 142 byte] Anders (diskussion | bidrag) (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 Racket/Multitråd (historik | redigera) [2 516 byte] Anders (diskussion | bidrag) (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...')
• 02.525 april 2026 kl. 02.52 Racket/6502-emu (historik | redigera) [6 959 byte] Anders (diskussion | bidrag) (Skapade sidan med '<pre> #lang racket ;; ================================================ ;; Enkel 6502-emulator skriven i Racket ;; ================================================ ;; Detta är en grundläggande men fullt fungerande emulator för 6502-processorn. ;; Den hanterar minne (64 KB), register, stack, flaggor och ett grundläggande ;; set av instruktioner. Du kan lätt utöka den med fler opkoder. ;; ;; Instruktioner som stöds i denna version (kan utökas i cpu-step): ;; - $0...')

3 april 2026

• 14.463 april 2026 kl. 14.46 Racket (historik | redigera) [825 byte] Anders (diskussion | bidrag) (Skapade sidan med 'Racket är ett programmeringsspråk i Lispfamiljen och underfamilj till Scheme. Det är kompatibelt med Scheme R5RS och andra varianter men har också ett eget väl utbyggt bibliotek av funktioner och rutiner och kanske en av de enklaste språken att komma igång och skapa GUI-applikationer i. = Installation Ubuntu = <pre> sudo add-apt-repository ppa:plt/racket -y sudo apt update sudo apt install racket </pre> Kör igång det inbyggda IDE:t med "drracket" antingen f...')

1 mars 2026

• 13.431 mars 2026 kl. 13.43 Microsoft Windows (historik | redigera) [921 byte] Anders (diskussion | bidrag) (Skapade sidan med '= Tips & Tricks = == Dual boot gets time zone wrong == When dual booting windows with Linux or BSD on the same machine the other operating systems keep the real time clock (RTC) in UTC while windows likes to keep it in local time. This means that if you set windows to UTC it works fine but if you have a different time zone windows will come up with UTC time but displayed as if you were in a different time zone. This means here in Europe you would have CET/CEST as time...')

15 februari 2026

• 16.5715 februari 2026 kl. 16.57 Legion 5 (historik | redigera) [800 byte] Anders (diskussion | bidrag) (Skapade sidan med '= Lenovo Legion 5 = == Tips och Tricks == === Batteriladdning === Det finns i dag inget Lenovo Vantage för att styra batteriladdningen ordentligt i Linux men det går att styra vissa saker ändå. ==== Sparläge på batteriet ==== I detta läget så laddas laptopen max till 80% och min till 60% när den är ansluten för att minska slitaget på batteriet. Slå på det med: <pre> sudo bash -c 'echo 1 > /sys/bus/platform/drivers/ideapad_acpi/VPC2004:00/conservati...')