Exam spec

2024-05-08 09:41:51 +01:00 · 2024-05-08 09:41:51 +01:00 · 1c9c9422e2
commit 1c9c9422e2
1 changed files with 17 additions and 0 deletions
--- a/polynom.hs
+++ b/polynom.hs
@ -0,0 +1,17 @@
+data Atree = Number Int | Variable String | Plus Atree Atree | Minus Atree | Times Atree Atree
+
+t :: Atree
+t =
+  Times
+    (Plus (Number 5) (Minus (Variable "x")))
+    ( Plus
+        (Times (Number 2) (Variable "y"))
+        (Minus (Plus (Variable "x") (Number 7)))
+    )
+
+type Polynomial = [Monomial]
+
+type Monomial = (Int, [String])
+
+polynomial :: Atree -> Polynomial
+polynomial = undefined