📜  LISP-结构

📅  最后修改于: 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)