diff options
Diffstat (limited to 'coding-exercises/2/93.rkt')
| -rw-r--r-- | coding-exercises/2/93.rkt | 22 |
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))))) |