diff options
| author | Mike Vink <mike1994vink@gmail.com> | 2023-05-07 19:10:16 +0200 |
|---|---|---|
| committer | Mike Vink <mike1994vink@gmail.com> | 2023-05-07 19:10:16 +0200 |
| commit | d6752a78aa1dd2483a943acd2c3d8bb5fa6e8d2d (patch) | |
| tree | bdb880c3d3fdd84c91522ab7caea06e307fdb929 /coding-exercises/2/83/install-rational.rkt | |
| parent | ef8fd9c3e94f37ab4cdd73601cef9d35724ff79a (diff) | |
make raising and dropping more robust
Diffstat (limited to 'coding-exercises/2/83/install-rational.rkt')
| -rw-r--r-- | coding-exercises/2/83/install-rational.rkt | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/coding-exercises/2/83/install-rational.rkt b/coding-exercises/2/83/install-rational.rkt index 334f802..92531ec 100644 --- a/coding-exercises/2/83/install-rational.rkt +++ b/coding-exercises/2/83/install-rational.rkt @@ -70,15 +70,11 @@ (cons (sign (/ n g)) (abs (/ d g))))) (define (dropme rat) - (display (list (numer rat) (denom rat))) - (display (list (integer? (numer rat)) (integer? (denom rat)))) (if (and (integer? (numer rat)) (integer? (denom rat))) ((get 'make 'integer) (/ (numer rat) (denom rat))) (list 'undefined))) (define (raiseme rat) - (display (list (numer rat) (denom rat))) - (display (list (integer? (numer rat)) (integer? (denom rat)))) (if (and (integer? (numer rat)) (integer? (denom rat))) ((get 'make 'real) (/ (numer rat) (denom rat))) |