结构（Structures）

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

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

• Title
• Author
• Subject
• Book ID

定义一个结构 (Defining a Structure)

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

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

(defstruct book 
   title 
   author 
   subject 
   book-id 
)

请注意

• 上述声明创建了一个包含四个named components.的书籍结构named components. 因此，每本创作的书都将成为这种结构的对象。

• 它定义了四个函数，分别是book-title，book-author，book-subject和book-book-id，它们将采用一个参数，一个书籍结构，并将返回本书的字段标题，作者，主题和书籍ID。宾语。 这些功能称为access functions.

• 符号簿成为数据类型，您可以使用typep谓词进行检查。

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

• 将创建另一个名为make-book隐式函数，它是一个constructor,在调用时，它将创建一个包含四个组件的数据结构，适用于访问函数。

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

• 还定义了一个名为copy-book的隐式函数，该函数包含一个参数。 它需要一个book对象并创建另一个book对象，它是第一个对象的副本。 此功能称为copier function.

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

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

例子 (Example)

创建一个名为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)