IsaacShoebottom/CS4613
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Pass 1.2 tests

Browse Source
This commit is contained in:
Isaac Shoebottom 2025-01-14 12:29:19 -04:00
parent 9551624d6a
commit 1820d98dfb
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
A1/infix-ae.rkt
View File

@ -40,7 +40,12 @@
[(Add l r) (+ (eval l) (eval r))] [(Add l r) (+ (eval l) (eval r))]
[(Sub l r) (- (eval l) (eval r))] [(Sub l r) (- (eval l) (eval r))]
[(Mul 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 ;; evaluate an AE program contained in an s-expr
(define (run sx) (define (run sx)