计算机程序的构造和解释习题3.33

最新推荐文章于 2022-05-02 14:23:19 发布

快乐的霖霖

最新推荐文章于 2022-05-02 14:23:19 发布

阅读量937

点赞数

CC 4.0 BY-SA版权

分类专栏：计算机程序的构造和解释

本文链接：https://blog.youkuaiyun.com/chdhust/article/details/8575383

计算机程序的构造和解释专栏收录该内容

9 篇文章

订阅专栏

本文提供了一份SICP习题3.33的答案，该习题涉及构造一个平均值计算器程序，使用了连接器模型来实现三个输入的平均值计算。文章还包含了一个测试代码示例。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

计算机程序的构造和解释习题3.33

SICP Exercise 3.33

This is similar as the celsius-fahrenheit-converter procedure.

[plain] view plaincopy 
     
    
 ;;;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:

[plain] view plaincopy 
     
    
 ;;;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)  