Discussion :

[Ceubex]

Bonjour,

J'ai un problème avec une fonction recursive de ce style

Code :

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

1
2
3
4
5
6
7
8
    Sub mafonction(ByVal liste As List(Of Point))
        Dim copie As New List(Of Point)
        For i As Integer = 0 To liste.Count - 1
            copie = liste
            copie.Add(liste(i))
            mafonction(copie)
        Next
    End Sub

Le soucis c'est que les variables donnent n'importe quoi. Tout ce comporte comme si liste et copie étaient des variables public et du coup dans le for quand i passe pas exemple à 1, je ne retouve pas la même valeur de liste que lorsque i était à 0

[Pol63]

dis nous plutot ce que tu veux faire, parce que là vu le code je ne vois pas du tout ...

Code :

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

 Dim copie As New List(Of Point)

si c'est pour mettre directement autre chose dans la variable copie ca sert à rien de faire un new

Code :

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

copie = liste

à chaque tour tu mets dans copie la variable que tu recois en paramètre de la fonction
puis tu ajoutes dans copie un element de liste (qui y est déjà vu que tu dis que copie recoit liste)
ensuite copie = liste fait que l'element ajouté n'apparait plus vu que tu remets la liste de base dedans
et ca c'est juste sur un niveau, j'ai pas regardé en récursivité ce que ca fait comme effet (je me demande s'il y a une sortie à la récursivité d'ailleurs)

[Ceubex]

En fait le but est d'ajouter un point à une liste jusqu'à un certains moment où il y a une sortie de la recursivité (que je n'ai pas mis pour ne pas compliquer).
Mais si tu veux le problème est le suivant :
j'appelle mafonction({point1}) (1er niveau de recursivité)
cette fonction crée la liste copie en ajoutant en plus point2 : {point1,point2} et fait un appel mafonction({point1,point2}) (2eme niveau de recursivité)
après il se passe des trucs et ça fini par sortir à un moment du niveau 2 de la recursivité et on revient au niveau 1. On aimerais alors que liste={point1}. Au lieu de ça liste={point1,point2} (voir plus de point s'il y en a qui se sont ajoutés dans d'autres niveau de recursivité.

Si tu veux mon soucis c'est de ne pas parvenir à retrouver l'argument de ma fonction au bon niveau de recursivité, il n'y a que l'argument du plus bas niveau que j'ai à chaque fois

[Pol63]

Code :

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

1
2
3
4
5
6
   Sub mafonction(ByVal liste As List(Of Point))
        For i As Integer = 0 To liste.Count - 1
            liste.Add(liste(i))
            mafonction(liste)
        Next
    End Sub

?

[Ceubex]

Ok mais après la fonction doit evoluer et pouvoir faire ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
    Sub mafonction(ByVal liste As List(Of Point))
        Dim copie As New List(Of Point)
        Dim supplementaires As New List(Of Point)
        supplementaires = PointsSup()
        For i As Integer = 0 To liste.Count - 1
            copie = liste
            copie.Add(supplementaires(i))
            mafonction(copie)
        Next
    End Sub

Et là la solution n'est plus applicable je pense, il faut retrouver l'argument