LISP - 结构

结构是用户定义的数据类型之一，它允许您组合不同类型的数据项。

结构体用于表示记录。 假设您想跟踪图书馆中的书籍。 您可能想要跟踪每本书的以下属性 −

• Title
• Author
• Subject
• Book ID

定义结构

LISP 中的 defstruct 宏允许您定义抽象记录结构。 defstruct 语句定义了一种新的数据类型，为您的程序提供了多个成员。

为了讨论 defstruct 宏的格式，让我们编写 Book 结构的定义。 我们可以将书籍结构定义为 −

(defstruct book 
   title 
   author 
   subject 
   book-id 
)

请注意

• 上面的声明创建了一个带有四个命名组件的书籍结构。因此创建的每本书都将是该结构的一个对象。

• 它定义了四个函数，分别是 book-title、book-author、book-subject 和 book-book-id，它将接受一个参数，即一本书结构，并返回书籍对象的标题、作者、主题和书籍 ID 字段。 这些函数称为访问函数。

• 符号书成为一种数据类型，您可以使用typep谓词检查它。

• 还有一个名为 book-p 的隐式函数，它是一个谓词，如果其参数是一本书，则为 true，否则为 false。

• 将创建另一个名为 make-book 的隐式函数，它是一个构造函数，在调用时，将创建一个包含四个组件的数据结构， 适合与访问功能一起使用。

• #S 语法指的是一种结构，您可以使用它来阅读或打印书籍的实例。

• 还定义了一个名为 copy-book of one argument 的隐式函数。 它获取一个书籍对象并创建另一个书籍对象，该对象是第一个对象的副本。 此函数称为复印机函数。

• 您可以使用setf来更改书籍的组成部分，例如

(setf (book-book-id book3) 100)

示例

创建一个名为 main.lisp 的新源代码文件，并在其中键入以下代码。

(defstruct book 
   title 
   author 
   subject 
   book-id 
)

( setq book1 (make-book :title "C Programming"
   :author "Nuha Ali" 
   :subject "C-Programming Tutorial"
   :book-id "478")
)

( setq book2 (make-book :title "Telecom Billing"
   :author "Zara Ali" 
   :subject "C-Programming Tutorial"
   :book-id "501")
) 

(write book1)
(terpri)
(write book2)
(setq book3( copy-book book1))
(setf (book-book-id book3) 100) 
(terpri)
(write book3)

执行代码时，会返回以下结果 −

#S(BOOK :TITLE "C Programming" :AUTHOR "Nuha Ali" :SUBJECT "C-Programming Tutorial" :BOOK-ID "478")
#S(BOOK :TITLE "Telecom Billing" :AUTHOR "Zara Ali" :SUBJECT "C-Programming Tutorial" :BOOK-ID "501")
#S(BOOK :TITLE "C Programming" :AUTHOR "Nuha Ali" :SUBJECT "C-Programming Tutorial" :BOOK-ID 100)