10 lines
No EOL
299 B
Scheme
10 lines
No EOL
299 B
Scheme
#lang sicp
|
|
|
|
(define (make-from-real-imag r a)
|
|
(define (dispatch op)
|
|
(cond ((eq? op 'real-part) (* r (cos a)))
|
|
((eq? op 'imag-part) (* r (sin a)))
|
|
((eq? op 'magnitude) r)
|
|
((eq? op 'angle) a)
|
|
(else (error "Unknown op: MAKE-FROM-MAG-ANG" op))))
|
|
dispatch) |