LISP - 结构

---

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

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

• 标题
• 作者
• 主题
• 图书编号

定义结构

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

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

(defstruct book 
   title 
   author 
   subject 
   book-id 
)

请注意

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

• 它定义了四个函数，分别为 book-title、book-author、book-subject 和 book-book-id，它们采用一个参数、一本书的结构，并返回书籍的标题、作者、主题和 book-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)