-- p1
-- Construa a funcao ocorrencias::Int->[Int]->Int que, dada uma
-- lista de inteiros e um valor inteiro, retorne o numero de
-- ocorrencias desse valor na lista

ocorrencias :: Int -> [Int] -> Int

-- tamanho da lista: 'x' pertece a 'l' tal que 'x' == 'n'
ocorrencias n l = length [ x | x <- l, x == n ]