1
maiores :: Int -> [Int] -> Int
maiores _ [] = 0
maiores n (x:xs)

alguém tem alguma ideia de como fazer?

2 Respostas 2

2

Há diversas formas de fazer, além da já citada solução usando guardas.

Filtrando os maiores que n e depois contando o número de elementos

List comprehension:

maiores :: Int -> [Int] -> Int
maiores n xs = length [x | x<-xs, x > n]

Filter:

maiores :: Int -> [Int] -> Int
maiores n xs = length $ filter (>n) xs

Ou você pode fazer uma solução recursiva com Ifs (muito parecida com a solução que usa guardas):

maiores :: Int -> [Int] -> Int
maiores _ [] = 0
maiores n (x:xs) =
  if x > n
    then 1 + maiores n xs
    else maiores n xs
1
  • Boa! já agora um pouco mais estranha: maiores n=length . filter (>n)
    – JJoao
    Commented 29/01/2021 às 11:33
1

Pra resolver esse problema você precisa usar guardas, dessa forma você consegue testar uma condição.

Como haskell é um linguagem puramente funcional o ideal é utilizar recursão.

Sendo (x:xs) a lista inteira onde x é o primeiro elemento e xs é o restante da lista, você precisa comparar se o primeiro elemento é maior que n se for você vai somar 1 ao retorno do resultado da função com o restante da lista, caso não for você só precisa chamar a função recursivamente sem adicionar nada ao retorno.

Lembrando que é possível fazer essa soma ao retorno da função, pois seu retorno também é Int

Função completa:

maiores :: Int -> [Int] -> Int
maiores _ [] = 0
maiores n (x:xs)
    | x > n = 1 + maiores n xs
    | otherwise = maiores n xs

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .