s c h e m e w i k i . o r g

/ WebHome / Scm.WebChanges

This Web


WebHome 
WebChanges 
WebTopicList 
WebStatistics 

All Webs


Chicken
Cookbook
Erlang
Know
Main
Plugins
Sandbox
Scm
TWiki  

Schematics


Schematics Home
TWiki Shorthand

Offsite Links


Schemers.org
Lambda the Ultimate
twiki.org
incest
incest
incest stories
3d incest
incest videos
incest cartoons
incest pics
incest comics
incest movies
family incest
incest pictures
incest sex

Topics in Scm web: Changed: now 01:34 GMT Changed by:

WebStatistics 19 May 2014 - 13:57 - r1.148 Main.guest
  Statistics for Scm Web Month: Topic views: Topic saves: File uploads: Most popular topic views: Top contributors for topic save and uploads: May 2014 1160 0 0 173 ...
WebHome 25 Aug 2010 - 00:21 - r1.8 BenKordesh
  Schematics Cookbook Source Code Repository This is the Scm web, where source code files for the Cookbook.WebHome Cookbook are stored. Files stored here can be included ...
SslUrl 17 Dec 2008 - 15:25 - r1.5 EricHanchrow
  ;; From Eli Barzilay #lang scheme ;; This will give us ssl: for an ssl version of url.ss, but still need an ;; explicit port number specification since url.ss does ...
DefineWordBoundary 21 Nov 2008 - 10:36 - r1.2 MichaelBurschik
  begin scheme (define word-boundary? (lambda (character) (list? (memq character '(#\space #\tab #\newline))))) end
IfItSyntaxLoc 24 Aug 2007 - 22:38 - NEW WillFarr
  (define-syntax (if-it stx) (syntax-case stx () (src-if-it test then else) (with-syntax ( it (datum- syntax-object (syntax src-if-it) 'it) ) (syntax/loc stx (let ...
ColonMatrixExpansion 24 Aug 2007 - 18:52 - NEW WillFarr
  (:matrix x (index i j) M) (let ((m matrix) (rows #f) (cols #f)) (set! rows (matrix-rows m)) (set! cols (matrix-cols m)) (let loop ((i 0) (j 0)) (if ( i rows) (let ...
DoExpansionSRFI42 24 Aug 2007 - 18:46 - NEW WillFarr
  (:do (let ( ) ) ( ) (let ( ) ) ( )) (let ( ) (let loop ( ) (if (let ( ) payload (if (loop ) )))))
NewSRFI42Generator 24 Aug 2007 - 18:39 - NEW WillFarr
  (define-syntax :matrix (syntax-rules (index) ((:matrix cc x (index i j) mexpr) (:do cc (let ((m mexpr) (rows #f) (cols #f)) (set! rows (matrix-rows m)) (set! cols ...
FileProcessWords 22 Jun 2006 - 12:44 - NEW MichaelBurschik
  begin scheme (define for-each-word (lambda (filename proc) (with-input-from-file filename (lambda () (let read-word ((char (read-char)) (word '())) (cond ((eof-object ...
MatchByName 01 Jan 2006 - 19:07 - NEW RichardCobbe
  ;; tested in PLT Scheme 300.3 (require (lib "plt-match.ss")) (define-struct expr (srcloc)) (define-struct (id expr) (name)) (define-struct (lam expr) (arg body)) ...
ReadingLinesSample 27 Oct 2005 - 18:59 - r1.2 GeorgeHerson
  begin scheme (for-each-line-in-file "ReadingLines.scm" (let ((line-num 0)) (lambda (line) (printf "~a: ~a ~n" line-num line) (set! line-num (add1 line-num))))) end ...
ReadingLinesWithFoldSample 27 Oct 2005 - 18:58 - r1.2 GeorgeHerson
  begin scheme (fold-lines-in-file "ReadingLinesWithFold.scm" (lambda (line line-num) (printf "~a: ~a ~n" line-num line) (add1 line-num)) 1) end
HashPresence 16 Sep 2004 - 11:16 - r1.3 NoelWelsh
  (define hash-has-key? (let ((symbol (gensym))) (lambda (table key) (not (eq? (hash-table-get table key (lambda () symbol)) symbol)))))
WebNotify 04 Sep 2004 - 07:25 - r1.3 AntonVanStraaten
  This is a subscription service to be automatically notified by e-mail when topics change in this Scm web. This is a convenient service, so you do not have to come ...
NumRecPassword 01 Jun 2004 - 20:58 - r1.2 JensAxelSoegaard
  (require (lib "14.ss" "srfi") (lib "27.ss" "srfi") (lib "42.ss" "srfi")) (define (generate-8-password) (string-append-ec (:range i 0 8) (let ((bigcs (substring (char ...
ReadingLinesWithFold 27 May 2004 - 03:53 - r1.2 AntonVanStraaten
  begin scheme (define (fold-lines-in-file filename proc init . mode) (with-input-from-file filename (lambda () (apply fold-lines proc init (current-input-port) mode ...
list-remove-duplicates-hash-1 19 May 2004 - 22:34 - NEW FranciscoSolsona
  (define remove-duplicates (lambda (l) (let ((h (make-hash-table 'equal))) (let loop ((l l) (ans '())) (cond ((null? l) ans) ((hash-table-get h (car l) (lambda () ...
list-remove-duplicates-hash-2 19 May 2004 - 22:34 - NEW FranciscoSolsona
  (require (lib "1.ss" "srfi")) ;; for filter (define remove-duplicates (lambda (l) (let ((h (make-hash-table 'equal))) (filter (lambda (elem) (hash-table-get h elem ...
hash-printing 19 May 2004 - 21:40 - NEW KarlaRamirez
  (let ((t (make-immutable-hash-table '((1 . "one") (2 . "two"))))) (hash-table-for-each t (lambda (key value) (display (format "~a: ~a~n" key value)))))
hash-traverse 19 May 2004 - 21:33 - NEW KarlaRamirez
  (let ((t (make-immutable-hash-table '((1 . "one") (2 . "two"))))) (values (hash-table-map t (lambda (key value) (string-append "Foo:" value))) (hash-table-for-each ...
hash-immutable 19 May 2004 - 21:04 - NEW KarlaRamirez
  (let ((t (make-immutable-hash-table '((1 . "one") (2 . "two"))))) (display (hash-table-get t 1)) ;; The following raises an exception: (hash-table-put! t 3 "three ...
hash-add-element 19 May 2004 - 20:38 - NEW KarlaRamirez
  (let ((t (make-hash-table))) (hash-table-put! t 1 "foo") (hash-table-put! t 2 "bar"))
recipe-romanTodec 19 May 2004 - 14:52 - r1.3 JensAxelSoegaard
  (require (lib "13.ss" "srfi")) (read-case-sensitive #t) ; due to the case expression ; roman- decimal : string integer ; convert a string with (uppercase) roman ...
recipe-decToroman 19 May 2004 - 14:25 - r1.3 JensAxelSoegaard
  ; decimal- roman : integer string ; format the integer num using roman numerals (define (decimal- roman num) (let ((decimal-numbers (list 1000 900 500 400 100 90 ...
PattMatchCommented 18 May 2004 - 22:27 - NEW BrentAFulgham
  (require (lib "pregexp.ss" "mzlib") (lib "dns.ss" "net")) (define commented-regexp (pregexp "((?x: ; Ignore whitespace (?x: ; Capture the inet address (?! \\- ) ...
PattMatchAlphSample 18 May 2004 - 18:27 - NEW BrentAFulgham
  (require (lib "14.ss" "srfi")) (define (test-alphabetic words) (letrec ((exp (regexp (string-append "^ " (char-set- string (char-set-difference char-set:letter char ...
GaussianRandom 14 May 2004 - 20:06 - NEW BrentAFulgham
  (define (fract rand) (exact- inexact (/ (random 999999999) 1000000000))) (define (gaussian rand) (letrec ((rval (lambda () (- ( 2 (fract rand)) 1))) (generate (lambda ...
ListIntEx 12 May 2004 - 00:33 - NEW BrentAFulgham
  (require (lib "42.ss" "srfi")) (printf "Infancy is: ") (foldl (lambda (x y) (printf "~a " x)) 0 (list 0 1 2)) (newline) (printf "Toddling is: ") (for-each (lambda ...
time-arithmetic-1 05 May 2004 - 22:17 - r1.2 FranciscoSolsona
  (require (lib "19.ss" "srfi")) (let ((now (current-seconds)) ;; using PLT (now-srfi-19 (time-second (current-time))) ;; using SRFI-19 (24-hours-from-now ( 24 60 60 ...
time-week-2 05 May 2004 - 21:49 - NEW FranciscoSolsona
  (require (lib "19.ss" "srfi")) (let ((today (current-date))) (values (date- string today) ;; `1' means `Monday' is the first day of the week: (date-week-number today ...
time-week-1 05 May 2004 - 21:47 - NEW FranciscoSolsona
  (require (lib "19.ss" "srfi")) (let ((today (current-date))) (values (date- string today) (date- string today "Week No.: ~V, day: (~w of week) (~d of month) (~j of ...
time-arithmetic-3 05 May 2004 - 18:53 - NEW FranciscoSolsona
  (require (lib "19.ss" "srfi")) (let ((now (current-time)) (duration (make-time 'time-duration 0 ( 24 60 60)))) (values (add-duration now duration) ;; 24 hours from ...
time-arithmetic-2 05 May 2004 - 18:52 - NEW FranciscoSolsona
  (require (lib "19.ss" "srfi")) (let ((t1 (make-time 'time-utc 0 5000)) (t2 (make-time 'time-utc 0 2000))) (let ((duration (time-difference t1 t2))) (values (time ...
time-epoch-4 28 Apr 2004 - 01:36 - NEW FranciscoSolsona
  (require (lib "date.ss")) (let ((seconds 1083022458) (date (seconds- date seconds))) (date- string date))
time-epoch-5 28 Apr 2004 - 01:36 - NEW FranciscoSolsona
  (require (lib "19.ss" "srfi")) (let ((some-date-string "2004-04-26T18:26:18-0500")) (let ((date (string- date some-date-string "~Y-~m-~dT~k:~M:~S~z"))) (values (date ...
time-epoch-3 28 Apr 2004 - 01:32 - NEW FranciscoSolsona
  (require (lib "19.ss" "srfi")) (let ((today (current-date))) (values (date- julian-day today) (date- modified-julian-day today) (date- time-monotonic today) (date ...
time-epoch-2 28 Apr 2004 - 01:30 - NEW FranciscoSolsona
  (require (lib "date.ss")) (let ((seconds (current-seconds)) (today (seconds- date seconds)) (julian (date- julian/scalinger today))) (values julian (julian/scalinger ...
time-epoch-1 28 Apr 2004 - 01:29 - NEW FranciscoSolsona
  (require (lib "date.ss")) (let ((seconds 1) (minutes 1) (hour 13) (day 21) (month 4) (year 2004)) (find-seconds seconds minutes hour day month year))
time-today-5 28 Apr 2004 - 01:23 - NEW FranciscoSolsona
  (require (lib "19.ss" "srfi")) ;; or (require (lib "19.ss" "srfi" "time")) (let ((today (current-date))) (date- string today "~1"))
time-today-4 28 Apr 2004 - 01:22 - NEW FranciscoSolsona
  (require (lib "date.ss")) (let ((seconds (current-seconds)) (today (seconds- date seconds))) (date-display-format 'iso-8601) (date- string today))
time-today-2 28 Apr 2004 - 01:20 - NEW FranciscoSolsona
  (require (lib "date.ss")) (let ((seconds (current-seconds)) (today (seconds- date seconds))) (date- string today))
time-today-3 28 Apr 2004 - 01:20 - NEW FranciscoSolsona
  (require (lib "date.ss")) (let ((seconds (current-seconds)) (today (seconds- date seconds))) (date- string today))
time-today-1 28 Apr 2004 - 01:19 - NEW FranciscoSolsona
  (let ((seconds (current-seconds)) (today (seconds- date seconds))) (values (date-day today) (date-month today) (date-year today)))
time-intro-1 28 Apr 2004 - 01:12 - NEW FranciscoSolsona
  (let ((seconds (current-seconds)) (today (seconds- date seconds))) (display (date-year today)) (newline))
recipe-roundingNumbers2 27 Apr 2004 - 23:40 - NEW ChandraQuintas
  (floor 4.3) (ceiling 4.3) (truncate 4.3) (floor 3.5) (ceiling 3.5) (truncate 3.5)
recipe-roundingNumbers1 27 Apr 2004 - 23:39 - NEW ChandraQuintas
  (round .54) (round 43.5) (round .4999) (round 86.21)
recipe-validNumber 27 Apr 2004 - 23:23 - NEW ChandraQuintas
  (number? (string- number "42")) (number? (string- number "2+3i")) (number? (string- number "3.1416")) (number? (string- number "2/3")) (number? (string- number "hello ...
recipe-validNumber2 27 Apr 2004 - 23:22 - NEW ChandraQuintas
  (complex? (string- number "3+4i")) (real? (string- number "#e1e10")) (rational? (string- number "6/10")) (integer? (string- number "3.0"))
WebFileUpload1 07 Apr 2004 - 21:47 - NEW FranciscoSolsona
  #!/bin/sh ":";exec /home/solsona/scheme/plt/bin/mzscheme r $0 (require (lib "cgi.ss" "net") (lib "file-upload.ss" "net")) (let ((b (get-bindings/mime)) (name (extract ...
ReadingLines 03 Apr 2004 - 20:14 - NEW AntonVanStraaten
  begin scheme (define (for-each-line-in-file filename proc . mode) (with-input-from-file filename (lambda () (apply for-each-line proc (current-input-port) mode)) ...

Number of topics : 50


 
 
© 2004 by the contributing authors. / You are Main.guest