【SICP练习】99 练习2.75

练习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代码都不规范，横线加上出处倒是一个很明智的选择。