我正在尝试对单元格函数实现一种读写。
(define(读写 - 获取单元格)(单元格(列表)))(define(读写集单元格x)(单元格(列表x)))
(define(读写单元格x) (让((…
在Scheme中 (x y) 意味着应用该功能 x 争论 y 。所以
(x y)
x
y
(define (read-write-set cell x) (cell (list x)))
定义一个函数 read-write-set 当使用作为函数的第一个参数调用时,应用该函数, cell ,评估的结果 (list x) (使用唯一元素构建列表第二个参数)。
read-write-set
cell
(list x)
然后,在:
(define (read-write-cell x) (let ((cell '())) (read-write-set cell x)))
你打电话 read-write-set 第一个参数是 的 不 强> 一个函数,但是一个空列表(因为 cell 分配给 '() 在让)。
'()
所以,不是一个程序;期望一个过程 指的是第一个参数的值 read-write-set ,这不是一个程序,而是一个清单。我不清楚它的预期行为 read-write-get 和 read-write-set ,所以我无法建议如何纠正它们。
read-write-get