LISP - 结构

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

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

标题
作者
主题
图书 ID

定义结构

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

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

(defstruct book 
   title 
   author 
   subject 
   book-id 
)

请注意

以上声明创建了一个具有四个**命名组件**的 Book 结构。因此，创建的每一本书都将是此结构的对象。
它定义了四个名为 book-title、book-author、book-subject 和 book-book-id 的函数，这些函数将接受一个参数（一个 Book 结构），并返回 Book 对象的 title、author、subject 和 book-id 字段。这些函数称为**访问函数**。
符号 book 成为一种数据类型，您可以使用 **typep** 谓词检查它。
还将有一个名为 **book-p** 的隐式函数，它是一个谓词，如果其参数是 Book 则为真，否则为假。
另一个名为 **make-book** 的隐式函数将被创建，它是一个**构造函数**，当被调用时，它将创建一个具有四个组件的数据结构，适合与访问函数一起使用。
**#S 语法**指的是结构，您可以使用它来读取或打印 Book 的实例。
还定义了一个名为 copy-book 的隐式函数，它接受一个参数。它接受一个 Book 对象并创建一个另一个 Book 对象，它是第一个对象的副本。此函数称为**复制函数**。
您可以使用 **setf** 来更改 Book 的组件，例如

(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)

打印页面