scheme - 套装怎么用!在 Scheme 函数中？

Question

你会怎么用set!在一个简单的过程 f 中，如果 + (f 0) (f 1)) 的参数从左到右计算，则计算 (+ (f 0) (f 1)) 将返回 0，但如果参数从右到左计算，则返回 1？

Answer 1

最简单的方法可能是存储一些外部状态并让 f 的实现影响它的内容。

(define x 0)
(define (f n) (let ((tmp x)) (set! x n) tmp))

因此，x 最初为 0，每次调用 f 都会返回 x 的当前值并将参数保存为 x 的新值。因此 (f 0) 后跟 (f 1) 都将返回 0，最终 x 值为 1。 评估 (f 1) 后跟 (f 0) 将产生 0 然后 1，最终 x 为 0。