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

This Web

All Webs

Schematics

Offsite Links

(define (test-alphabetic words) (letrec ((exp (regexp (string-append "^[" (char-set->string (char-set-difference char-set:letter char-set:punctuation)) "]+$"))) (checker (lambda (words alphawords) (if (null? words) alphawords (let ((word (car words)) (if (regexp-match exp (car words)) (checker (cdr words) (cons (car words) alphawords)) (checker (cdr words) alphawords)))))) (checker words '())))2004