diff options
| author | Mike Vink <mike1994vink@gmail.com> | 2023-05-07 16:47:40 +0200 |
|---|---|---|
| committer | Mike Vink <mike1994vink@gmail.com> | 2023-05-07 16:47:40 +0200 |
| commit | edd1d70b85f7c9ff14412f5fcfe4f286fdab95aa (patch) | |
| tree | d0fd6ce9b4de4ace1bd2ddaf2b326ca15244d64d /coding-exercises/2/83/install-real.rkt | |
| parent | d1bfadf2a338c25cb19ee2043501b293ea2081b3 (diff) | |
fix another bug with negative case
Diffstat (limited to 'coding-exercises/2/83/install-real.rkt')
| -rw-r--r-- | coding-exercises/2/83/install-real.rkt | 2 |
1 files changed, 1 insertions, 1 deletions
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) |