From 78f438c53b0aaf147268a77dfd53f5b056939f39 Mon Sep 17 00:00:00 2001 From: Mike Vink Date: Tue, 9 May 2023 22:29:14 +0200 Subject: two more excercises --- coding-exercises/2/93.rkt | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) (limited to 'coding-exercises') diff --git a/coding-exercises/2/93.rkt b/coding-exercises/2/93.rkt index 2543b23..5eb7221 100644 --- a/coding-exercises/2/93.rkt +++ b/coding-exercises/2/93.rkt @@ -36,3 +36,31 @@ (term 1 -1)))) (display (list "RESULT GCD --" (greatest-common-divisor test-p1 test-p2))))) + +;; 95 +;; I represented reals as inexact decimals so our gcd breaks down here +;; Even more, I didn't bother with inexact gcd and the real gcd just returns the dividend +((lambda () + (define p1 (make-polynomial 'x + (sparse-termlist + (term 2 1) (term 1 -2) (term 0 1)))) + (define p2 (make-polynomial 'x + (sparse-termlist + (term 2 11) (term 0 7)))) + (define p3 (make-polynomial 'x + (sparse-termlist + (term 1 13) (term 0 5)))) + (define q1 (mul p1 p2)) + (define q2 (mul p1 p3)) + (newline) + (newline) + (newline) + (newline) + (newline) + (display q1) + (newline) + (display q2) + (newline) + (display (greatest-common-divisor q1 q2)))) + +;; 96 -- cgit v1.2.3