diff options
Diffstat (limited to 'coding-exercises/2/93.rkt')
| -rw-r--r-- | coding-exercises/2/93.rkt | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/coding-exercises/2/93.rkt b/coding-exercises/2/93.rkt index a4067d1..4fe754e 100644 --- a/coding-exercises/2/93.rkt +++ b/coding-exercises/2/93.rkt @@ -8,15 +8,13 @@ (define apply-fn (caddr get-put-apply)) ;; something -;; (define p1 (make-polynomial 'x (sparse-termlist -;; (term 2 1) (term 0 1))) -;; (define p2 (make-polynomial 'x (sparse-termlist -;; (term 3 1) (term 0 1)))) -;; (define rf (make-rat p2 p1)) +(define p1 (make-polynomial 'x (sparse-termlist + (term 2 1) (term 0 1)))) +(define p2 (make-polynomial 'x (sparse-termlist + (term 3 1) (term 0 1)))) +(define rf (make-rat p2 p1)) ((lambda () (newline) - (display (add 1 (make-rat 2 1))))) - ;; (newline) - ;; (display rf) - ;; (newline) - ;; (display (add rf rf)))) + (display rf) + (newline) + (display (add rf rf)))) |