-- p7
-- Contrua uma funcao elimina::[Int]->Int->[Int] que, dada uma lista
-- de interiros e um numero inteiro, retorne uma lista onde todas
-- as ocorrencias desse numero foram eliminadas.

elimina :: [Int]->Int->[Int]

elimina [] a = []
elimina (h:tail) a
   | h == a = elimina tail a  -- Achei, nao concateno
   | otherwise = [h] ++ elimina tail a -- Nao achei, concateno

-------------------------------------------------
-- outra versao
elimina2 :: [Int]->Int->[Int]
-- x pertence ao conjunto tal que x != n
elimina2 lista n = [ x | x <- lista, x /= n]