Acho que fiz de uma forma muito extensiva, mas consegui. Obrigada!!
type Ponto = (Float,Float)
compr :: Ponto -> Ponto -> Ponto -> (Float, Float, Float)
compr (a,b) (c,d) (e,f) = (dist (a,b) (c,d), dist (c,d) (e,f), dist (a,b) (e,f))
dist :: Ponto -> Ponto -> Float
dist (a,b) (c,d)= sqrt ((c-a)^2 + (d-b)^2)
dist (c,d) (e,f)= sqrt ((e-c)^2 + (f-d)^2)
dist (a,b) (e,f)= sqrt ((e-a)^2 + (f-a)^2)
↧