On Fri, Jul 13, 2012 at 6:02 AM, Rouben Rostamian <rostam...@umbc.edu> wrote: > (define (all-lower-case? str) > (not (memq #t > (map (lambda (i) > (if (and (char-alphabetic? i) (char-upper-case? i)) > #t #f)) > (string->list str))))) > > This looks rather clumsy to me. [...] Any suggestions? So far, no one has suggested a regexp. Why not,
(define (all-lower-case? s) (not (regexp-match? #rx"[A-Z]" s))) -- Ian Tegebo ____________________ Racket Users list: http://lists.racket-lang.org/users
