fix projecting with rationals?

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))))