racket-从字符串中删除非字母字符

如何从字符串中删除非字母数字字符？我只想保留数字和字母，并考虑建立一个所有非字母数字字符的列表，检查字符串的每个字符是否是列表的成员

将字符串转换为字符列表，使用

alphanum？

谓词过滤，然后转换回字符串

(define (remove-non-alphanum s)
  (list->string (filter alphanum? (string->list s))))

(define (alphanum? c)
  (or (char-numeric? c)
      (char-alphabetic? c)))

---

请发布您的代码，以及您对可以使用的内容的任何限制。还提供示例输入和输出。