pal-uni/cm20256-exam
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add impl

Browse Source
This commit is contained in:
Pal Kerecsenyi 2024-05-08 10:18:41 +01:00
parent 1c9c9422e2
commit 3aeae3617e
Signed by: palk
GPG Key ID: 6891661E25394C2C
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
polynom.hs
View File

@ -1,5 +1,6 @@
data Atree = Number Int | Variable String | Plus Atree Atree | Minus Atree | Times Atree Atree data Atree = Number Int | Variable String | Plus Atree Atree | Minus Atree | Times Atree Atree
-- (5 - x) * (2y - (x + 7)))
t :: Atree t :: Atree
t = t =
Times Times
@ -14,4 +15,8 @@ type Polynomial = [Monomial]
type Monomial = (Int, [String]) type Monomial = (Int, [String])
polynomial :: Atree -> Polynomial polynomial :: Atree -> Polynomial
polynomial = undefined polynomial (Number n) = [(n, [])]
polynomial (Variable v) = [(1, [v])]
polynomial (Plus e1 e2) = polynomial e1 ++ polynomial e2
polynomial (Minus e) = map (\(c, xs) -> (-c, xs)) (polynomial e)
polynomial (Times e1 e2) = concatMap (\(c1, xs1) -> map (\(c2, xs2) -> (c1 * c2, xs1 ++ xs2)) (polynomial e2)) (polynomial e1)