diff options
Diffstat (limited to 'coding-exercises/2/83/install-rational.rkt')
| -rw-r--r-- | coding-exercises/2/83/install-rational.rkt | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/coding-exercises/2/83/install-rational.rkt b/coding-exercises/2/83/install-rational.rkt index 73640b7..337f38b 100644 --- a/coding-exercises/2/83/install-rational.rkt +++ b/coding-exercises/2/83/install-rational.rkt @@ -11,6 +11,9 @@ (make-rat (+ (* (numer x) (denom y)) (* (numer y) (denom x))) (* (denom x) (denom y)))) + (define (neg-rat rat) + (make-rat (- (numer rat)) + (denom rat))) (define (sub-rat x y) (make-rat (- (* (numer x) (denom y)) (* (numer y) (denom x))) |