[racket] This is too clumsy. Is there a better way?

From: Danny Yoo (dyoo at hashcollision.org)
Date: Fri Jul 13 09:34:57 EDT 2012

On Fri, Jul 13, 2012 at 9:31 AM, Danny Yoo <dyoo at 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.

Posted on the users mailing list.