📅  最后修改于: 2020-11-03 07:20:14             🧑  作者: Mango
结构是用户定义的数据类型之一,它允许您组合不同种类的数据项。
结构用于表示记录。假设您想跟踪图书馆中的书籍。您可能需要跟踪每本书的以下属性-
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。它接受一个书本对象并创建另一个书本对象,该对象是第一个书本的副本。此函数称为复印机函数。
您可以使用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)