计算机程序的构造和解释习题3.33
SICP Exercise 3.33
This is similar as the celsius-fahrenheit-converter procedure.
- ;;;Exercise 3.33
- ;;;average
- (define (averager a b c)
- (let ((half (make-connector))
- (sum (make-connector)))
- (constant 0.5 half)
- (adder a b sum)
- (multiplier half sum c)
- 'ok))
the test code is:
- ;;;test averager
- (define a (make-connector))
- (define b (make-connector))
- (define c (make-connector))
- (set-value! a 5 'user)
- (probe "b" b)
- (probe "c" c)
- (define average (averager a b c))
- (set-value! b 6 'user)
本文提供了一份SICP习题3.33的答案,该习题涉及构造一个平均值计算器程序,使用了连接器模型来实现三个输入的平均值计算。文章还包含了一个测试代码示例。

被折叠的 条评论
为什么被折叠?



