---------------------
-- LPG3 - Lista 3  --
-- Juliana Mokwa   --
-- Julio Monteiro  --
---------------------


tipoTriangulo a b c 
	|(a+b<c) || (a+c<b) || (b+c<a) = "Nao existe"
	|a==b && a==c = "equilatero" 
	|(a==b && a/=c) || (b==c && b/=a) || (c==a && c/=b) = "isosceles" 
	|otherwise = "escaleno"

maiorLista [] = 0
maiorLista (x:xs)
	| x>(maiorLista xs) = x
	|otherwise = (maiorLista xs)

menorLista [] = 0
menorLista [a] = a
menorLista (x:xs)
	| x<(menorLista xs) = x
	|otherwise = (menorLista xs)

nElementos [] = 0
nElementos (x:xs) = 1+nElementos xs

somaElementos [] = 0
somaElementos [a] = a
somaElementos (x:xs) = x + somaElementos xs

mediaElementos [] = 0
mediaElementos a = somaElementos a / nElementos a
--mediaElementos (x:xs) = (x + somaElementos xs)/nElementos (x:xs)

inverteLista [] = []
inverteLista (x:xs) = (inverteLista xs) ++ [x]