Şemada karakter kümesini kullanma

Question

Bu fonksiyon, verilen listede !"#%&'()*,-./:;?@[\]_{} karakter bulmalıdır. Bu karakterlerden en az bir kez bulunursa, doğru olması gerekir. Fakat bu amaç için uygun önceden tanımlanmış bir işlev bulamıyorum.

(define (is-symbol lst) 
    (if (null? (car lst)) 
    #f 
    (if (char-set:punctuation (car lst)) #t 
      (is-symbol (cdr lst))) 
)) 

(is-symbol '(#\A #\b #\t #\R #\f 3 5 4 7 8 9 #\A #\G #\w #\q $ & ?)) 

Answer 1

Sana char-punctuation? aradığınız inanıyoruz:

(define (is-symbol? lst) 
    (cond ((null? lst) #f) 
     ((char-punctuation? (car lst)) #t) 
     (else (is-symbol (cdr lst))))) 

Veya daha da basit: Sen srfi-14 gibi görünüyor char-set:punctuation, kullandığınız

(define (is-symbol? lst) 
    (ormap char-punctuation? lst)) 

Answer 2

. İlgili üyelik yüklemi char-set-contains?'dur.