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

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.