diff options
| author | Mike Vink <mike1994vink@gmail.com> | 2023-05-07 16:36:29 +0200 |
|---|---|---|
| committer | Mike Vink <mike1994vink@gmail.com> | 2023-05-07 16:36:29 +0200 |
| commit | d1bfadf2a338c25cb19ee2043501b293ea2081b3 (patch) | |
| tree | ed0088b0460ce57d5d13f81260355794502fe1ec /coding-exercises/2/83/install.rkt | |
| parent | ff2fe157be4009d111935deb9c0b85d358e99993 (diff) | |
fix some bugs while doing 91
Diffstat (limited to 'coding-exercises/2/83/install.rkt')
| -rw-r--r-- | coding-exercises/2/83/install.rkt | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/coding-exercises/2/83/install.rkt b/coding-exercises/2/83/install.rkt index d972784..3f923f0 100644 --- a/coding-exercises/2/83/install.rkt +++ b/coding-exercises/2/83/install.rkt @@ -73,7 +73,8 @@ ((get 'make-from-mag-ang 'complex) x y)) (define test-complex (make-complex 1 2)) (define test-complex-rect (make-complex-rect 1 2)) -(define test-complex-polar (make-complex-rect 1 2)) +(define test-complex-polar (make-complex-polar (apply-fn 'magnitude test-complex) + (apply-fn 'angle test-complex))) ;; polynomial (define (make-polynomial var terms) |