From edd1d70b85f7c9ff14412f5fcfe4f286fdab95aa Mon Sep 17 00:00:00 2001 From: Mike Vink Date: Sun, 7 May 2023 16:47:40 +0200 Subject: fix another bug with negative case --- coding-exercises/2/83/install-complex.rkt | 6 ------ coding-exercises/2/83/install-real.rkt | 2 +- 2 files changed, 1 insertion(+), 7 deletions(-) (limited to 'coding-exercises/2/83') diff --git a/coding-exercises/2/83/install-complex.rkt b/coding-exercises/2/83/install-complex.rkt index e3dfe52..df46817 100644 --- a/coding-exercises/2/83/install-complex.rkt +++ b/coding-exercises/2/83/install-complex.rkt @@ -153,12 +153,6 @@ (make-from-mag-ang (mul (magnitude z1) (magnitude z2)) (add (angle z1) (angle z2)))) (define (div-complex z1 z2) - (newline) - (display "DIV-COMPLEX") - (newline) - (display (list z1 z2)) - (newline) - (display (list (magnitude z1) (magnitude z2))) (make-from-mag-ang (div (magnitude z1) (magnitude z2)) (sub (angle z1) (angle z2)))) diff --git a/coding-exercises/2/83/install-real.rkt b/coding-exercises/2/83/install-real.rkt index 356ac92..45b1a6c 100644 --- a/coding-exercises/2/83/install-real.rkt +++ b/coding-exercises/2/83/install-real.rkt @@ -9,7 +9,7 @@ (attach-tag 'real datum)) (define (make i) (let ((n (exact->inexact i))) - (if (< n threshold) + (if (< (abs n) threshold) 0.0 n))) (define (raiseme r) -- cgit v1.2.3