@@ -62,8 +62,8 @@ conjugate (r:+i) = (r :+ (0-i))
62-- We can't do "instance Num a => Num (Complex a)" because
62-- We can't do "instance Num a => Num (Complex a)" because
63-- we need "abs" which needs "magnitude" which needs "sqrt" which needs Float
63-- we need "abs" which needs "magnitude" which needs "sqrt" which needs Float
64instance Num (Complex Float) where
64instance Num (Complex Float) where
65− (+) (a:+b) (c:+d) = ((a+b):+(c+d))
65+ (+) (a:+b) (c:+d) = ((a+c):+(b+d))
66− (-) (a:+b) (c:+d) = ((a-b):+(c-d))
66+ (-) (a:+b) (c:+d) = ((a-c):+(b-d))
67 (*) (a:+b) (c:+d) = ((a*c-b*d):+(b*c+a*d))
67 (*) (a:+b) (c:+d) = ((a*c-b*d):+(b*c+a*d))
68 fromInteger x = (fromInteger x:+0)
68 fromInteger x = (fromInteger x:+0)
69 abs (a:+b) = (magnitude (a:+b):+0)
69 abs (a:+b) = (magnitude (a:+b):+0)