Welcome to the CHICKEN Scheme pasting service

srfi-14 bug pasted by sjamaan on Wed Sep 11 12:49:48 2024

(char-set-contains? (char-set-union
                        (char-set #\& #\;)
                        (char-set-delete
                         (char-set-complement (string->char-set
   "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"))
                         #\space)) #\?)

=>

#f

but:

(char-set-contains? (char-set-union
                        (char-set-delete
                         (char-set-complement (string->char-set
   "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"))
                         #\space)) #\?)

=>

#t
[ permalink | raw ]

WTF added by sjamaan on Wed Sep 11 13:44:26 2024

(member #\? (char-set->list (char-set-union
                        (char-set #\& #\;)
                        (char-set-delete
                         (char-set-complement (string->char-set
   "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"))
                         #\space))))

=>

#f


But:

(member #\? (char-set->list (char-set-union
                        (char-set #\&)
                        (char-set-delete
                         (char-set-complement (string->char-set
   "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"))
                         #\space))))

takes forever
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Proper ... recursion is required by the Scheme specification.
Visually impaired? Let me spell it for you (wav file) download WAV