diff options
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) |