Scheme 在这个方案流实现中我做错了什么？

我正在尝试为一项任务实现流，但我遗漏了一些重要的东西

此流cons应该创建一对cdr的值和承诺（稍后评估）

（定义（str1）（流cons12））

然而，当我调用

（streamcarstr1）

时，它会抱怨“预期违反合同：结对？”

我不明白为什么str1不是有效的一对——我该怎么做才能让它工作

抢劫

您的线路：

(define (str1) (stream-cons 1 2))

正在定义一个名为str1的函数，因此str1不是一对。应改为：

(define str1 (stream-cons 1 2))

---

谢谢我怎么没看到呢。

(define str1 (stream-cons 1 2))