Add minutes spent and minor syntax

This commit is contained in:
Isaac Shoebottom 2025-01-14 12:31:45 -04:00
parent 1820d98dfb
commit aa3f4758e5

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