diff options
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))) |