Scheme数据类型之结构体-list/structure/record

最新推荐文章于 2025-02-06 09:39:57 发布

原创最新推荐文章于 2025-02-06 09:39:57 发布 · 2.5w 阅读

7 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

人工智能

本文通过实例探讨Scheme中的结构体（structure）和记录（record），介绍如何定义、实例化、访问及修改结构体成员。示例中展示了如何使用`define-structure`创建结构体，以及对结构体实例的操作。同时，提到了结构体默认为record类型。

Scheme里的数据类型很多，与结构体类似的数据类型有list、structure和record

下面举个例子，来加深一下对于record和structure的理解，

首先定义一个结构体，用define-structure命令

(define-structure (tasklist (type-descriptor <tasklist>)) task1 task2 task3)

这就声明了一个新结构体，名字叫tasklist，有三个成员task1，task2，task3

由structure得到一个record，也就是实例化一个结构体，实例化后的结构体就叫record

(make-tasklist 'a 'b 'c)

返回一个record，like this

#[tasklist 53]

验证一下是否为record，

（record? #[tasklist 53])

返回为#t，意味正确。
为这个record取个名为tl

（define tl #[tasklist 53])

查询tl的第一个成员task1的值，

（tasklist-task1 tl)

返回a，

修改tl第二成员task2的值，

（set-tasklist-task1! tl 'boom)

我把这个例子做成了一个完整的程序如下，并附上scm文件：structuredemo.scm，下载地址

(define-structure (tasklist (type-descriptor <tasklist>)) task1 task2 task3)
(define tl
  (make-tasklist 'a 'b 'c))
(display "
**********************************************************\n")
(display 
  (list "tl's members are"
        (tasklist-task1 tl)
        (tasklist-task2 tl)
        (tasklist-task3 tl)))
(set-tasklist-task2! tl 'boom)
(display "\n")
(display 
  (list "tl's second member is changed to" (tasklist-task2 tl)))
(display "
**********************************************************\n")

运行该程序