1 files changed, 10 insertions, 0 deletions
diff --git a/lec05/Calc.hs b/lec05/Calc.hs
new file mode 100644
index 0000000..8051d76
--- /dev/null
+++ b/lec05/Calc.hs
@@ -0,0 +1,10 @@
+module Calc where
+
+import ExprT
+
+-- Exercise 1
+
+eval :: ExprT -> Integer
+eval (Lit n) = n
+eval (Add l r) = eval l + eval r
+eval (Mul l r) = eval l * eval r