diff options
Diffstat (limited to 'coding-exercises/2/83')
| -rw-r--r-- | coding-exercises/2/83/install-complex.rkt | 6 | ||||
| -rw-r--r-- | coding-exercises/2/83/install-real.rkt | 2 |
2 files changed, 1 insertions, 7 deletions
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) |