练习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
