From bfdb81a05b010e51a7410f3503bfa9f43ccc2f7c Mon Sep 17 00:00:00 2001 From: Mike Vink Date: Tue, 2 May 2023 21:33:01 +0200 Subject: finally finished the arithmetic package stuff --- coding-exercises/2/78/complex-rectangular.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'coding-exercises/2/78/complex-rectangular.rkt') diff --git a/coding-exercises/2/78/complex-rectangular.rkt b/coding-exercises/2/78/complex-rectangular.rkt index bbc2b8c..be4f0e5 100644 --- a/coding-exercises/2/78/complex-rectangular.rkt +++ b/coding-exercises/2/78/complex-rectangular.rkt @@ -3,14 +3,14 @@ (require "../../../shared/data-directed-programming.rkt") -(define (install-rectangular-package put) +(define (install-rectangular-package apply-generic put) (define (real-part z) (car z)) (define (imag-part z) (cdr z)) (define (make-from-real-imag x y) (cons x y)) - (define (magnitude z) (sqrt (+ (sqr (real-part z)) - (sqr (real-part z))))) + (define (magnitude z) (apply-generic 'sqrt (+ (apply-generic 'sqr (real-part z)) + (apply-generic 'sqr (real-part z))))) (define (angle z) - (atan (imag-part z) + (apply-generic 'atan (imag-part z) (real-part z))) (define (make-from-mag-ang r a) (cons (* r (cos a)) -- cgit v1.2.3