方案，SICP，R5RS，为什么延迟不是特殊形式？

Question

这是关于 SICP 的第 3.5 章，其中正在讨论流。这个想法是：

(cons-stream 1 (display 'hey))

不应该评估 cons-stream 的第二部分，因此它不应该打印“hey”。这确实发生了，我得到以下输出：

hey(1 . #)

所以我的结论是延迟不是作为特殊形式实现的？或者我做错了什么？我使用以下实现：

(define (cons-stream a b) 
  (cons a (delay b)))

延迟是默认的 R5RS 实现。这是实施过程中的错误，还是我没有正确执行或理解它？

Answer 1

您确实创建了一个promise，但是该promise是在您的cons-stream内创建的，这意味着为时已晚并且表达式已经被评估。试试这个：

(define (foo x)
  (display "foo: ") (write x) (newline)
  x)

(cons-stream 1 (foo 2))

你会发现它评估得太早了。出于同样的原因，

(define ones (cons-stream 1 ones))

当您的 cons-stream 是一个函数时， this: 和任何其他无限列表都将不起作用。所以问题是 delay 是一种特殊形式，但您没有使用它的功能，因为您将 cons-stream 定义为普通函数。如果您想让它也以相同的特殊方式运行，则必须将 cons-stream 定义为宏。例如：

(define-syntax cons-stream
  (syntax-rules ()
    [(cons-stream x y) (cons x (delay y))]))