You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
14 lines
516 B
14 lines
516 B
2 years ago
|
|
||
|
|
Exercise 2.93: Modify the rational-arithmetic
|
||
|
|
package to use generic operations, but change make-rat so that it does
|
||
|
|
not attempt to reduce fractions to lowest terms. Test your system by calling
|
||
|
|
make-rational on two polynomials to produce a rational function:
|
||
|
|
|
||
|
|
|
||
|
|
(define p1 (make-polynomial 'x '((2 1) (0 1))))
|
||
|
|
(define p2 (make-polynomial 'x '((3 1) (0 1))))
|
||
|
|
(define rf (make-rational p2 p1))
|
||
|
|
|
||
|
|
Now add rf to itself, using add. You will observe that this
|
||
|
|
addition procedure does not reduce fractions to lowest terms.
|