CaZzzer/cs-252
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

lab03: impl evalueate if

Browse Source
This commit is contained in:
Yura
2026-02-08 16:34:21 -08:00
parent 58d081da8c
commit 2818b21129
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lab03/interp.lhs
View File

@@ -85,7 +85,10 @@ You must complete the other cases.
> evaluate :: Exp -> Val > evaluate :: Exp -> Val
> evaluate ETrue = VTrue > evaluate ETrue = VTrue
> evaluate EFalse = VFalse > evaluate EFalse = VFalse
> evaluate (Eif e1 e2 e3) = error "TBD" > evaluate (Eif e1 e2 e3) =
> case evaluate e1 of
> VTrue -> evaluate e2
> VFalse -> evaluate e3
And here we have a couple of programs to test. And here we have a couple of programs to test.