Discussion :

[Gatnema]

Bonjour.

Je doit faire une fonction qui extrait les chaines croissantes d'une liste d'entiers (a partir d'une liste d'entiers on doit retourner une liste de listes constituée des entiers croissants de la premiere liste) :

Par exemple si on lui donne en entré la liste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  [1;2;3;4;2;3;4;6;7;1;8;9];;

Elle devra retourner:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  [ [1;2;3;4] ; [2;3;4;6;7] ; [1;8;9] ];;

J'ai déjà écrit une fonction mais elle ne fait pas correctement ce que je veu car elle ne peut renvoyer que des sous liste de maximum deux entiers:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
let rec chaines_croissantes l=
match l with
  |[]->[[]]
  |[x]->[[x]]
  |x::y::s->if(x>y) then ([x]::chaines_croissantes (y::s))
    else ([x;y]::chaines_croissantes s);;

Le problème est apparemment ici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

else ([x;y]::chaines_croissantes s);;

Mais je ne voit pas comment faire pour résoudre le problème merci d'éclairer ma lanterne.

PS: Sinon j'avais réussi à modifier cette fonction pour isoler la première chaine croissante de la liste donc logiquement il ne me reste plus qu'a faire une fonction récursive qui va rassembler tout cela MAIS je ne sait pas comment former une liste de liste avec des listes: étant donné qu'on ne peut pas faire sa :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

[1;2;3;4]::[1;5;6;7];;

[Jedai]

Pour faire une liste de liste, c'est soit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

[[1;2];[1;5]]

soit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

[1;2] :: [1;5] :: []

(le [] est du type int list list)

J'ai une petite solution imparfaite en Haskell, ça pourrait t'inspirer éventuellement :

Code Haskell :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
growings :: (Ord a) => [a] -> [[a]]
growings [] = []
growings [x] = [[x]]
growings (x: xs@(y:_))
    | x > y = [x] : growings xs
    | otherwise = let (ys : rest) = growings xs
                  in (x:ys) : rest

--
Jedaï

[Gatnema]

Merci pour ton aide Jedaï
Grace a toi j'ai apprit comment faire des liste de liste et ton exemple en Haskell, bien que je n'en ai jamais fait (je ne connaissait même pas ce langage ) m'a bien aidé.