my attempt to do the exercises in sicp.

Monday, August 4, 2008

sicp exercise 2.75

;; Exercise 2.75.  Implement the constructor make-from-mag-ang in message-passing style. This procedure should be analogous to the make-from-real-imag procedure given above.

(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)
           (error "Unknown op -- MAKE-FROM-REAL-IMAG" op))))

No comments: