Bonjour,

Je cherche à faire une fonction récursive pour parcourir un Arbre afin qu'il m'affiche combien de branches j'ai par noeud.

Pouvez vous m'aider à l'écrire en Perl et aussi d'abord à corriger mon algo qui n'est pas correct...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
exemple d arbre:
 
B		C
|		|
----------------
        |
	A
 
Mon Algo :
 
fonction taille_arbre (racine){
	si(!=racine){ // on sort si c est la fin de la branche
		@liste += racine;
	}
	sinon{ // on compte le total de noeud et on stocke les résultats dans une liste
		pour i de 1 a totalnoeud{
			@liste(j) += racine;
			return(@liste + taille_arbre(racine position i))
		}
		j=j+1;
		cpt=cpt+1;
	}
	pour j de 1 à cpt{
		afficher @liste(j);
	}
}
Mon résultat devrait être A B C, quand je le fais sur papier, ça me donne plutôt A + A + B + A + B + C

Merci d'avance