2.5.3. Пример: символьная алгебра
Упражнение 2.93

Обобщенные операции в пакете арифметики рациональных чисел

Модифицируйте пакет арифметики рациональных чисел, заставив его пользоваться обобщенными операциями, но при этом измените make-rat, чтобы она не пыталась сокращать дроби. Проверьте систему, применив make-rational к двум многочленам, и получив рациональную функцию

(define p1 (make-polynomial 'x '((2 1)(0 1))))

(define p2 (make-polynomial 'x '((3 1)(0 1))))

(define rf (make-rational p2 p1))

Сложите теперь rf саму с собой, используя add. Вы увидите, что процедура сложения не приводит дроби к наименьшему знаменателю.


Это упражнение еще никто не завершил. Ты будешь первым!


Комментарии отсутствуют.

Необходима авторизация

Вы должны авторизоваться для создания комментария.

Вход