[R] Exploration d'un arbre en profondeur

[sozary]

Bonjour!!
J'ai fais une exploration d'un arbre en profondeur qui marche très bien..
Seulement voilà, regardez mon code source:

► Afficher le texte

Code : Tout sélectionner

;Tout d'abord, je créer mon arbre
#include <array.au3>
Global $TREE[3]
Global $rac[3]
$rac[0]="11"
Local $node[3]
$node[0]="8"

Local $nida[3]
$nida[0]="5"
Local $noda[3]
$noda[0]="10"

$node[1]=$nida
$node[2]=$noda

Local $nide[3]
$nide[0]="14"

local $mias[3]
$mias[0]="13"
Local $minos[3]
$minos[0]="15"

$nide[1]=$mias
$nide[2]=$minos

$rac[1]=$node
$rac[2]=$nide

Global $text=""
MsgBox(0,"",_Affiche($rac))




Func _Affiche($noeud)
    _ArrayDisplay($noeud)
    If IsArray($noeud) Then
        $text&=$noeud[0]&";"

        _Affiche($noeud[1])
        _Affiche($noeud[2])
    EndIf
    Return $text
EndFunc
 

Le soucis est que je dois déclarer chaque tableaux, et c'est lassant alors que je n'ai que 7 valeurs.. Un moyen plus rapide est t-il envisageable?

Merci d'avance!

[Faco]

c'est important les valeurs que tu met dans ton tableau? Sinon tu peux partir sur une fonction récursive comme tu l'a déjà fais.

[sozary]

Mais c'est ce que j'ai fais par la suite!
-->

► Afficher le texte

Code : Tout sélectionner

_PutInTree("13","15","14",$rac)

Func _PutInTree($Value1,$Value2,$pValue,$aDest)
    If IsArray($aDest) Then
        If $aDest[0]=$pValue Then

            Local $node[3],$noda[3]
            $noda[0]=$Value2
            $node[0]=$Value1
            $aDest[1]=$noda
            $aDest[2]=$node


            Return
        Else
            _PutInTree($Value,$branche,$pValue,$aDest[1])

            _PutInTree($Value,$branche,$pValue,$aDest[2])
        EndIf

    EndIf
EndFunc

Mais bizarrement la valeur 13 ne veut pas s'ajouter... Ceci est une modification, avant la fonction prenais en paramètre uniquement la valeur d'un noeud, et la fonction ajoutais ce noeud. Cela marchais avec 15, mais avec 13 nan! D'ou les changements-test effectués

[Faco]

pour de vrai tu veux faire quoi ? tu nous fais réfléchir sur des truc pas très compréhensible.

Code : Tout sélectionner

_PutInTree($Value,$branche,$pValue,$aDest[1])

$Value et $branche ne sont pas définit (dans la partie de code que tu donne ...)

[sozary]

En fait: j'ai un nœud racine valant 11, qui se divise en deux noeud, 14 et 8 comme sur l image: http://recursivite.developpez.com/images/image7-1-2.gif

Je veux en entrant deux noeuds fils, qu'ils se mettent eux même fils d'un parent donné (d'ou le valeur1,valeur2 représentrant les noeuds fils)

[orax]

On peut utiliser une écriture plus courte pour les tableaux.

► Afficher le texte

Code : Tout sélectionner

Local $nida = [5, "", ""]
Local $noda = [10, "", ""]
Local $node = [8, $nida, $noda]
Local $mias = [13, "", ""]
Local $minos = [15, "", ""]
Local $nide = [14, $mias, $minos]
Global $rac = [11, $node, $nide] 

Je ne sais pas si c'est bon mais là j'ai tous les nombres.

► Afficher le texte

Code : Tout sélectionner

;Tout d'abord, je créer mon arbre
#include <array.au3>

Global $rac[3]
Global $text = ""

$rac[0]=11

_PutInTree("14","8","11",$rac)
_PutInTree("10","5","8",$rac)
_PutInTree("15","13","14",$rac)

Func _PutInTree($Value1,$Value2,$pValue, ByRef $aDest)
    If IsArray($aDest) Then
        If $aDest[0]=$pValue Then

            Local $node[3],$noda[3]
            $noda[0]=$Value2
            $node[0]=$Value1
            $aDest[1]=$noda
            $aDest[2]=$node

        Else
            _PutInTree($Value1,$Value2,$pValue,$aDest[1])
            _PuteInTree($Value1,$Value2,$pValue,$aDest[2])
        EndIf

    EndIf
EndFunc

MsgBox(0, "", _Affiche($rac))

Func _Affiche($noeud)
    _ArrayDisplay($noeud)
    If IsArray($noeud) Then
        $text &= $noeud[0] & ";"

        _Affiche($noeud[1])
        _Affiche($noeud[2])
    EndIf
    Return $text
EndFunc   ;==>_Affiche

[sozary]

En effet... J'ai le même code, je sais pas pourquoi cela avait planter ..!
Merci quand même à vous deux!

P.S: Orax, dans ton code, dans la fonction _PutInTree(), quand tu l'appelles deux fois, la deuxième fois, n'écris pas "_PuteInTree" ! Ce petit lapsus !

[sozary]

Je pense que le ByRef a débloqué l'histoire en fait! Merci!

[mikell]

quand tu l'appelles deux fois, la deuxième fois, n'écris pas "_PuteInTree"

Oui, tu peux appeler la dame dans son arbre si tu veux, mais ne l'écris pas