On Fri, Jul 13, 2012 at 9:31 AM, Danny Yoo <d...@hashcollision.org> 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. > > It's also named "all-lower-case?", but appears to return true only if > it's all upper case. :)
Wow. I can't read code anymore. My apologies. ____________________ Racket Users list: http://lists.racket-lang.org/users
