-- p2
-- Construa a funcao unicos::[Int]->[Int] que dada uma lsita de inteiros,
-- retorna uma lista contendo os valores que ocorrem apenas uma vez na
-- lista de entrada.

unicos :: [Int] -> [Int]
isMember :: Int -> [Int] -> Bool
elimina :: Int -> [Int] -> [Int]


isMember n lista = [ x | x <- lista, n == x ] /= []
elimina n lista = [ x | x <- lista, x /= n]

unicos [] = []
-- se a cabeca aparece na calda:
--   elimina cabeca da calda e faz recursao sobre o resultado
-- se nao adiciona cabeca mais recusao sobre a calda
unicos (h:tail)
   | isMember h tail = unicos (elimina h tail)
   | otherwise       = [h] ++ unicos tail