NikolajDanger/2024B1-AP
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

🐛 fixed a lil bug

Browse Source
This commit is contained in:
Nikolaj Gade
2024-09-06 15:40:04 +02:00
parent 7145ce5b99
commit f7092c81db
2 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
a1/src/APL/AST.hs
View File

@ -32,10 +32,10 @@ printExp (Mul e1 e2) = "("++(printExp e1)++" * "++(printExp e2)++")"
printExp (Sub e1 e2) = "("++(printExp e1)++" - "++(printExp e2)++")"
printExp (Div e1 e2) = "("++(printExp e1)++" / "++(printExp e2)++")"
printExp (Pow e1 e2) = "("++(printExp e1)++" ** "++(printExp e2)++")"
printExp (Eql e1 e2) = "("++(printExp e1)++" == "++(printExp e2)++")"
printExp (If e1 e2 e3) = "(if "++(printExp e1)++" then "++(printExp e2)++" else "++(printExp e3)++")"
printExp (Var var) = var
printExp (Let var e1 e2) = "(let "++var++" = "++(printExp e1)++" in "++(printExp e2)++")"
printExp (Lambda var e) = "(\\"++var++" -> "++(printExp e)++")"
printExp (Apply e1 e2) = "("++(printExp e1)++" "++(printExp e2)++")"
printExp (TryCatch e1 e2) = "(try "++(printExp e1)++" catch "++(printExp e2)++")"
printExp _ = "error"