您的位置：首页 > 运维架构

【SICP练习】99 练习2.75

2015-09-08 00:00 435 查看

练习2.75

通过模仿书上的make-from-real-imag函数来完成此题。

(define (make-from-mag-ang x y) (define (dispatch op) (cond ((eq? op ‘real-part) (* x (cos y))) ((eq? op ‘imag-part) (* x (sin y))) ((eq? op ‘magnitude) x) ((eq? op ‘angle) y) (else (error “Unknow op -- MAKE-FROM-MAG-ANG” op)))) dispatch)

函数写到这里，我才终于发现以前写的报错的error代码都不规范，横线加上出处倒是一个很明智的选择。

感谢访问，希望对您有所帮助。欢迎关注或收藏、评论或点赞。

为使本文得到斧正和提问，转载请注明出处：
http://blog.csdn.net/nomasp

版权声明：本文为 NoMasp柯于旺原创文章，未经许可严禁转载！欢迎访问我的博客：http://blog.csdn.net/nomasp

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签： cond dispatch op define eq

相关文章推荐

新的分享

章节导航