src/sicp/ex2_75.rkt

   1 #lang racket
   2
   3 (define (make-from-mag-ang r a)
   4   (define (dispatch op)
   5     (cond
   6       [(eq? op 'magnitude) r]
   7       [(eq? op 'angle) a]
   8       [(eq? op 'real-part) (* r (cos a))]
   9       [(eq? op 'imag-part) (* r (sin a))]))
  10   dispatch)
  11
  12