From ef8fd9c3e94f37ab4cdd73601cef9d35724ff79a Mon Sep 17 00:00:00 2001 From: Mike Vink Date: Sun, 7 May 2023 19:05:38 +0200 Subject: fix projecting with rationals? --- coding-exercises/2/93.rkt | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) (limited to 'coding-exercises/2/93.rkt') 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)))) -- cgit v1.2.3