上一节:
下一节:

  LISP - 字符串

  • 简述

    Common Lisp 中的字符串是向量，即字符的一维数组。
    字符串文字用双引号括起来。除了双引号字符 (") 和转义字符 (\) 之外，字符集支持的任何字符都可以用双引号引起来以构成字符串。但是，您可以通过使用反斜杠 (\) 将它们转义来包含它们。

  • 例子

    创建一个名为 main.lisp 的新源代码文件，并在其中键入以下代码。 
    
(write-line "Hello World")
(write-line "Welcome to JC2182")
;escaping the double quote character
(write-line "Welcome to \"JC2182\"")
    当您执行代码时，它返回以下结果 - 
    
Hello World
Welcome to JC2182
Welcome to "JC2182"

  • 字符串比较函数

    数字比较函数和运算符，如 < 和 > 不适用于字符串。Common LISP 提供了另外两组函数来比较代码中的字符串。一组区分大小写，另一组不区分大小写。
    下表提供了功能 -
    区分大小写的函数 Case-insensitive Functions Description
    string= string-equal 检查操作数的值是否全部相等，如果是则条件为真。
    string/= string-not-equal 检查操作数的值是否都不同，如果值不相等则条件为真。
    string< string-lessp 检查操作数的值是否单调递减。
    string> string-greaterp 检查操作数的值是否单调递增。
    string<= string-not-greaterp 检查任何左操作数的值是否大于或等于下一个右操作数的值，如果是，则条件为真。
    string>= string-not-lessp 检查任何左操作数的值是否小于或等于其右操作数的值，如果是，则条件为真。

    例子

    创建一个名为 main.lisp 的新源代码文件，并在其中键入以下代码。 
    
; case-sensitive comparison
(write (string= "this is test" "This is test"))
(terpri)
(write (string> "this is test" "This is test"))
(terpri)
(write (string< "this is test" "This is test"))
(terpri)
;case-insensitive comparision
(write (string-equal "this is test" "This is test"))
(terpri)
(write (string-greaterp "this is test" "This is test"))
(terpri)
(write (string-lessp "this is test" "This is test"))
(terpri)
;checking non-equal
(write (string/= "this is test" "this is Test"))
(terpri)
(write (string-not-equal "this is test" "This is test"))
(terpri)
(write (string/= "lisp" "lisping"))
(terpri)
(write (string/= "decent" "decency"))
    当您执行代码时，它返回以下结果 - 
    
NIL
0
NIL
T
NIL
NIL
8
NIL
4
5

  • 案件控制职能

    下表描述了案例控制功能 -
    序号 功能说明
    1
    string-upcase
    将字符串转换为大写
    2
    string-downcase
    将字符串转换为小写
    3
    string-capitalize
    将字符串中的每个单词大写

    例子

    创建一个名为 main.lisp 的新源代码文件，并在其中键入以下代码。 
    
(write-line (string-upcase "a big hello from tutorials point"))
(write-line (string-capitalize "a big hello from tutorials point"))
    当您执行代码时，它返回以下结果 - 
    
A BIG HELLO FROM TUTORIALS POINT
A Big Hello From JC2182

  • 修剪字符串

    下表描述了字符串修剪功能 -
    序号 功能说明
    1
    string-trim
    它以一串字符作为第一个参数，一个字符串作为第二个参数，并返回一个子字符串，其中第一个参数中的所有字符都从参数字符串中删除。
    2
    String-left-trim
    它采用一串字符作为第一个参数，一个字符串作为第二个参数，并返回一个子字符串，其中第一个参数中的所有字符都从参数字符串的开头删除。
    3
    String-right-trim
    它以一个字符串字符作为第一个参数，一个字符串作为第二个参数，并返回一个子字符串，其中第一个参数中的所有字符都从参数字符串的末尾移除。

    例子

    创建一个名为 main.lisp 的新源代码文件，并在其中键入以下代码。 
    
(write-line (string-trim " " "   a big hello from tutorials point   "))
(write-line (string-left-trim " " "   a big hello from tutorials point   "))
(write-line (string-right-trim " " "   a big hello from tutorials point   "))
(write-line (string-trim " a" "   a big hello from tutorials point   "))
    当您执行代码时，它返回以下结果 - 
    
a big hello from tutorials point
a big hello from tutorials point   
   a big hello from tutorials point
big hello from tutorials point

  • 其他字符串函数

    LISP 中的字符串是数组，因此也是序列。我们将在接下来的教程中介绍这些数据类型。适用于数组和序列的所有函数也适用于字符串。但是，我们将使用各种示例来演示一些常用功能。

    计算长度

    这length函数计算字符串的长度。

    提取子串

    这subseq函数返回一个子字符串（因为字符串也是一个序列）从特定索引开始并继续到特定结束索引或字符串结尾。

    访问字符串中的字符

    这char函数允许访问字符串的单个字符。
    Example
    创建一个名为 main.lisp 的新源代码文件，并在其中键入以下代码。 
    
(write (length "Hello World"))
(terpri)
(write-line (subseq "Hello World" 6))
(write (char "Hello World" 6))
    当您执行代码时，它返回以下结果 - 
    
11
World
#\W

    字符串的排序和合并

    这sort函数允许对字符串进行排序。它接受一个序列（向量或字符串）和一个双参数谓词，并返回序列的排序版本。
    这merge函数接受两个序列和一个谓词，并根据谓词返回通过合并两个序列产生的序列。
    Example
    创建一个名为 main.lisp 的新源代码文件，并在其中键入以下代码。 
    
;sorting the strings
(write (sort (vector "Amal" "Akbar" "Anthony") #'string<))
(terpri)
;merging the strings
(write (merge 'vector (vector "Rishi" "Alex" "Priyanka") 
   (vector "Anju" "Anuj" "Avni") #'string<))
    当您执行代码时，它返回以下结果 - 
    
#("Akbar" "Amal" "Anthony")
#("Anju" "Anuj" "Avni" "Rishi" "Alex" "Priyanka")

    反转字符串

    这reverse函数反转字符串。
    例如，创建一个名为 main.lisp 的新源代码文件并在其中键入以下代码。 
    
(write-line (reverse "Are we not drawn onward, we few, drawn onward to new era"))
    当您执行代码时，它返回以下结果 - 
    
are wen ot drawno nward ,wef ew ,drawno nward ton ew erA

    连接字符串

    concatenate 函数连接两个字符串。这是通用序列函数，您必须提供结果类型作为第一个参数。
    例如，创建一个名为 main.lisp 的新源代码文件并在其中键入以下代码。 
    
(write-line (concatenate 'string "Are we not drawn onward, " "we few, drawn onward to new era"))
    当您执行代码时，它返回以下结果 - 
    
Are we not drawn onward, we few, drawn onward to new era
上一节:
下一节: