代码之家 › 专栏 › 技术社区 › Gradient

检查字符是否在字符串中

common-lisp

Gradient · 技术社区 · 8 年前

比如:

(char-in #\o "foo")

我能够实现它作为

(defun char-in (c s)
  (member c (coerce s 'list)))

有更好的办法吗?

1 回复 | 直到 8 年前

Rainer Joswig mmmmmm 8 年前

sequences . 所有的操作都适用于:

CL-USER 59 > (find #\X "fooXbar")
#\X

CL-USER 60 > (find #\x "fooXbar")
NIL

查找项目的位置:

CL-USER 61 > (position #\x "fooXbar")
NIL

CL-USER 62 > (position #\X "fooXbar")
3

CL-USER 63 > (search "X" "fooXbar")
3

CL-USER 64 > (search "x" "fooXbar")
NIL

所有函数使用 EQL 作为默认测试,但您可以使用另一个-例如,不区分大小写的查找将是:

CL-USER 65 > (find #\x "fooXbar" :test #'char-equal)
#\X

推荐文章

Alteration Dream · Common Lisp-为什么“让”变量保持在新迭代中对它们所做的更改?

2 年前

kflak · 如何在公共lisp中将函数传递给宏

2 年前

Oliver Cox · 在格式化数组时,如何在Lisp中使用不添加换行符/缩进的格式?

2 年前

Denes Cselovszki · 在宏定义中使用读取器宏字符

2 年前

7stud · 为什么是传单和封页?

2 年前

Galladite · 为什么(nil.nil)在SBCL中评估为(nil)而不是仅为nil?

2 年前

Vinn · DB中的HTML未注入hunchentoot路由

3 年前

ptb · Slime\Emacs comint在启动mpi进程时挂起

8 年前

Alexandru Popa · SBCL中奇怪的宏扩展错误

8 年前

MadPhysicist · 公共Lisp未定义分派字符

8 年前