diff options
Diffstat (limited to 'coding-exercises/2/78/complex-polar.rkt')
| -rw-r--r-- | coding-exercises/2/78/complex-polar.rkt | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/coding-exercises/2/78/complex-polar.rkt b/coding-exercises/2/78/complex-polar.rkt index 3c8cfe8..725f387 100644 --- a/coding-exercises/2/78/complex-polar.rkt +++ b/coding-exercises/2/78/complex-polar.rkt @@ -2,7 +2,7 @@ (provide install-polar-package) (require "../../../shared/data-directed-programming.rkt") -(define (install-polar-package put) +(define (install-polar-package apply-generic put) (define (magnitude z) (car z)) (define (angle z) @@ -10,9 +10,9 @@ (define (make-from-mag-ang r a) (cons r a)) (define (real-part z) - (* (magnitude z) (cos (angle z)))) + (apply-generic 'mul (magnitude z) (apply-generic 'cos (angle z)))) (define (imag-part z) - (* (magnitude z) (sin (angle z)))) + (apply-generic 'mul (magnitude z) (apply-generic 'sin (angle z)))) (define (make-from-real-imag x y) (cons (sqrt (+ (sqr x) (sqr y))) (atan y x))) |