data Zespolona = Zespolona Double Double
deriving (Eq, Read, Show)
rzeczywista::Zespolona->Double
rzeczywista (Zespolona x _) = x
urojona::Zespolona->Double
urojona (Zespolona _ y) = y
wypisz::Zespolona->IO()
wypisz (Zespolona x y) = putStrLn("z= " ++(show x)++" + "++(show y)++"i")
modul::Zespolona->Double
modul a = sqrt((rzeczywista a)2+(urojona a)2)
(+++)::Zespolona->Zespolona->Zespolona
(+++) a b = Zespolona (rzeczywista a + rzeczywista b) (urojona a + urojona b)
Nie mam zielonego pojecia jak wywolac funkcje (+++) proszę o pomoc