接受数字或字符

如何解决接受数字或字符

我知道我可以使用 (every #'digit-char-p str) 来检查每个字符是否都是数字，或者 (every #'alpha-char-p str) 如果它是一个字符。问题是我想接受这个词是否包含字母或数字但不包含像 + 这样的符号。 Hello1 应该返回 true 而不是 Hello1-。有人知道怎么做吗？

解决方法

every 的第一个参数是一个函数（实际上是一个函数指示符）：你可以把任何你想要的函数放在那里。在这种情况下，如评论中所述，该语言定义了一个函数来执行您想要的操作，但如果没有，您可以编写一个：

(every (lambda (c) (or (digit-char-p c) (alpha-char-p c))) ...)

或 (every (lambda (c) (and (explodablep c) (green c))) ...)。或者你想要的任何东西。