diff options
| author | Mike Vink <mike1994vink@gmail.com> | 2023-05-02 21:33:01 +0200 |
|---|---|---|
| committer | Mike Vink <mike1994vink@gmail.com> | 2023-05-02 21:33:01 +0200 |
| commit | bfdb81a05b010e51a7410f3503bfa9f43ccc2f7c (patch) | |
| tree | 574fabfccbf1282fa301790aca2e0e615d0bd0b5 /coding-exercises/2/78/complex-polar.rkt | |
| parent | 630372114a588a45b9cbc4fb2911aa96ec37cc99 (diff) | |
finally finished the arithmetic package stuff
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))) |