www.jammni.de

a)
data (Num a) =>  Polynomial a = Polynomial [a] deriving (Show,Eq)

b)
instance (Num a) => Num (Polynomial a) where 
	Polynomial x + Polynomial y = addFunktion x y 

addFunktion :: [Int] -> [Int] -> [Int]
addFunktion x [] = x
addFunktion [] x = x
addFunktion (x : xs) (y:ys) = (x+y):(addFunktion xs ys) 

data Polynomial a = Polynomial [a] deriving (Show,Eq,Read)

instance (Num a) => Num (Polynomial a) where 
	(Polynomial x) + (Polynomial y) = addFunktion x y 


addFunktion x [] =Polynomial x

addFunktion [] x =Polynomial x
addFunktion (x) (y) = Polynomial (rechne x y)
			     where 
				rechne [] h=h
				rechne z []=z
				rechne (m:ms) (n:ns)=(m+n):(rechne ms ns)