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

Add minutes spent and minor syntax

Browse Source
This commit is contained in:
Isaac Shoebottom
2025-01-14 12:31:45 -04:00
parent 1820d98dfb
commit aa3f4758e5
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
A1/infix-ae.rkt
View File

@ -1,5 +1,7 @@
#lang plait #lang plait
(define minutes-spent 50)
#| BNF for the AE language: #| BNF for the AE language:
ae: NUMBER ae: NUMBER
| { ae + ae } | { ae + ae }
@ -40,7 +42,7 @@
[(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) (if(equal? 0 (eval r)) [(Div l r) (if (equal? 0 (eval r))
(cond (cond
[(< 0 (eval l)) +inf.0] [(< 0 (eval l)) +inf.0]
[(> 0 (eval l)) -inf.0] [(> 0 (eval l)) -inf.0]