ANSI Common Lisp 笔记三(字符与字串)

摘自 《ANSI Common Lisp》

一、字符与字串

字串是字符向量。我们用一系列由双引号包住的字符来表示一个字串常量，一个字符 c  用# \ c  表示。

函数 char-code 返回与字符相关的数字，而 code-char 返回与数字相关的字符。如：

CL-USER> (char-code #\a)
97
CL-USER> (code-char 97)
#\a

二、字符比较函数

字符比较函数有：①  char<（小于） ②char<=  （小于等于） ③char= （等于） ④char>=（大于等于） ⑤char>（大于） ⑥char/=（不等于）。例如：

CL-USER> (char< #\a #\b)
T

因为字串是向量，序列与数组的函数都可以给字串使用。例如可以用 aref 来取出元素：

CL-USER> (aref "abc" 1)
#\b

但对一个字串，你可以使用更快的 char  函数：

CL-USER> (char "abc" 1)
#\b

如果你想要比较两个字串，你可以使用通用的 equal 函数，但还有一个忽略大小写的比较函数 string-equal：

CL-USER> (equal "fred" "fred")
T
CL-USER> (equal "fred" "Fred")
NIL

CL-USER> (string-equal "fred" "Fred")
T

三、构造字串

有很多种方式可以创造一个字串。最普遍的方式是使用 format。将第一个参数设为 nil 来调用 format，使它返回一个它本来会印出来的字串:

CL-USER> (format nil "~A or ~A" "truth" "dare")
"truth or dare"

但若你只想把数个字串连结起来，你可以使用 concatenate，它接受一个指定类型的符号，加上一个或多个序列：

CL-USER> (concatenate 'string "not " "to warry")
"not to warry"