diff options
Diffstat (limited to 'coding-exercises/2/93.rkt')
| -rw-r--r-- | coding-exercises/2/93.rkt | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/coding-exercises/2/93.rkt b/coding-exercises/2/93.rkt index 4fe754e..a4067d1 100644 --- a/coding-exercises/2/93.rkt +++ b/coding-exercises/2/93.rkt @@ -8,13 +8,15 @@ (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 rf) - (newline) - (display (add rf rf)))) + (display (add 1 (make-rat 2 1))))) + ;; (newline) + ;; (display rf) + ;; (newline) + ;; (display (add rf rf)))) |