fixup

1 files changed, 20 insertions, 2 deletions

diff --git a/coding-exercises/2/93.rkt b/coding-exercises/2/93.rkt
index 4fe754e..2543b23 100644
--- a/coding-exercises/2/93.rkt
+++ b/coding-exercises/2/93.rkt
@@ -15,6 +15,24 @@
 (define rf (make-rat p2 p1))
 ((lambda ()
    (newline)
-   (display rf)
    (newline)
-   (display (add rf rf))))
+   (newline)
+   (newline)
+   (display (list "RESULT --" rf))
+   (newline)
+   (newline)
+   (display (list "RESULT --" (add rf rf)))
+   (newline)
+   (newline)
+   (define test-p1 (make-polynomial 'x
+                                    (sparse-termlist
+                                      (term 4 1)
+                                      (term 3 -1)
+                                      (term 2 -2)
+                                      (term 1 2))))
+   (define test-p2 (make-polynomial 'x
+                                    (sparse-termlist
+                                      (term 3 1)
+                                      (term 1 -1))))
+
+   (display (list "RESULT GCD --" (greatest-common-divisor test-p1 test-p2)))))