循环遍历lisp中的字符串,用于alpha字符OR空格

Question

我正在寻找如何循环LISP中的字符串来检查alpha char或空格.像"咖啡是朋友"这样的句子我想要检查为有效.但是当我这样做时(每个#'alpha-char-p"咖啡都是最好的"')它会在空间上失败,因为空间在技术上不是alpha-char.建议？

谢谢!

Answer 1

只需测试alpha-char 或空格:

 (every 
   (lambda (c) (or (alpha-char-p c) (char= c #\Space))) 
   "coffee is best")

every 将第二个参数的每个元素必须返回非nil的函数作为第一个参数.

Answer 2

使用LOOP:

CL-USER > (loop for c across "tea is best"
                always (or (alpha-char-p c)
                           (char= c #\space)))
T