Pass 1.2 tests

2025-01-14 12:29:19 -04:00 · 2025-01-14 12:29:19 -04:00 · 1820d98dfb
commit 1820d98dfb
parent 9551624d6a
1 changed files with 6 additions and 1 deletions
--- a/A1/infix-ae.rkt
+++ b/A1/infix-ae.rkt
@ -40,7 +40,12 @@
    [(Add l r) (+ (eval l) (eval r))]
    [(Sub l r) (- (eval l) (eval r))]
    [(Mul l r) (* (eval l) (eval r))]
-    [(Div l r) (/ (eval l) (eval r))]))
+    [(Div l r) (if(equal? 0 (eval r))
+                  (cond
+                    [(< 0 (eval l)) +inf.0]
+                    [(> 0 (eval l)) -inf.0]
+                    [else +nan.0])
+                  (/ (eval l) (eval r)))]))

 ;; evaluate an AE program contained in an s-expr
 (define (run sx)