Lista por compreensao

[avernoro]

Olá amigos alguém é capaz de me dizer como é que eu obtenho o seguinte resultado numa lista por compreensao, ou seja quero fazer uma lista por compreensao cujo resultado final seja o seguinte :

[[1], [1, 2], [1, 2, 3], [1, 2, 3, 4], [1, 2, 3, 4, 5]]

Se alguém souber agradeço.

[Rui Carlos]

tem que ser com uma lista por compreensão?

isso com o fold é fácil: foldr (\x r-> [[ x ]]++(map (x:) r)) [] [1..5]

EDIT:

já descobri uma forma mais simples com listas por compreensão...

[take n [1..5] | n <- [1..5]]

[avernoro]

Ah, obrigado eu não tinha pensado nisso, já tinha feito usando a recursividade, mas o exercicio era mesmo por compreensao, obrigado.

Já agora aqui fica usando recursividade:

geraLista :: [int]-> [[int]]
geraLista [] = []
geraLista l = geraLista (init l) ++ [elementosAte (length l) l]

elementosAte :: Int -> [int] -> [int]
elementosAte m (h:t) | (m == 1) = [h]
                     | otherwise = [h] ++ elementosAte (m-1) t

Um abraço atodos

[Rui Carlos]

é de mim ou a tua função 'elementosAte' é igual à função 'take'?

andar a reinventar a roda não é muito boa ideia  😉

[avernoro]

pois não me lembrei da função take e como senti necessidade da função...