sicp每日一题[2.75]

Exercise2.75

Implement the constructor make-from-mag-ang in message-passing style. This procedure should be an alogous to the make-from-real-imag procedure given above.


这道题非常简单,只要稍微修改一下 make-from-real-imag 就行了

(define (make-from-mag-ang r a)
  (define (dispatch op)
    (cond ((eq? op 'magnitude) r)
          ((eq? op 'angle) a)
          ((eq? op 'real-part) (* (r (cos a))))
          ((eq? op 'imag-part) (* (r (sin a))))
          (else (error "Unknown op: MAKE-FROM-MAG-ANG" op))))
  dispatch)
posted @   再思即可  阅读(3)  评论(0编辑  收藏  举报
相关博文:
阅读排行:
· DeepSeek 开源周回顾「GitHub 热点速览」
· 物流快递公司核心技术能力-地址解析分单基础技术分享
· .NET 10首个预览版发布:重大改进与新特性概览!
· AI与.NET技术实操系列(二):开始使用ML.NET
· 单线程的Redis速度为什么快?
点击右上角即可分享
微信分享提示