From 1c9c9422e26e25b0242e4d944021cbd1067e987e Mon Sep 17 00:00:00 2001 From: Pal Kerecsenyi Date: Wed, 8 May 2024 09:41:51 +0100 Subject: [PATCH] Exam spec --- polynom.hs | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 polynom.hs diff --git a/polynom.hs b/polynom.hs new file mode 100644 index 0000000..ae52e02 --- /dev/null +++ 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