Discussion :

[lefty972]

Bonjour,
J'ai créer une liste dans mon un fichier ads comme-ceci:

Code :

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

1
2
3
4
5
6
7
 
Type object;
		type lien is access object;
		type object is record
			value : element;
			Next : lien := null;			
		end record;

Le tous est dans une déclaration de package nommé List

J'aimerai avoir une fonction Minimum_Object qui me retournera simplement le premier élément, Quelqu'un a-t-il une idée ?
merci

[RedBlackTree]

Dans l'approche proposée il y a une inversion entre ce qui est l'objet liste et ce qui est un nœud de cette liste. Une meilleure approche, en Ada 2005, est la suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
package liste is
 
 type noeud is record
   Element : long_float; -- ou tout autre type d'élément
   suivant : access noeud:= null;
 end record;
 
 type liste is access noeud;
 
end liste;

Le premier élément d'une liste L non vide est donc L.Element .