Discussion :

[anoukhan]

Bonjour,

Je dois écrire une fonction qui devrait me rendre un chemin (une liste de noms) d'un point vers un autre.

J'ai 2 types point et chemin ce dernier ayant 2 références entrée et sortie vers point. L'idée serait de parcourir à partir du premier point la liste de tout les points atteignables et ainsi de suite jusqu'à trouver le point de destination.

Je me connais pas du tout en pl/sql et je suis sous oracle 9i. Merci de me doner un aperçu de la solution (le code car j'ai trouvé la syntaxe un peu rude).
Sinon comment on fait pour écrire les procédures en java?

Merci d'avance

[Médiat]

(le code car j'ai trouvé la syntaxe un peu rude).

Cela veut-il dire que tu as déjà une idée de la solution ? Dans ce cas poste ce que tu as fait, cela sera plus facile pour t'aider.

Dans l'idée que tu décris, il y a un risque de boucle infinie... à moins que tu ne dises pas tout.

[plaineR]

Sinon comment on fait pour écrire les procédures en java?

Je pense qu'en faisant une recherche sur ce forum, tu devrais trouver des exemples.

[anoukhan]

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
 
 
create or replace function getWayTo(dest TCrossPoint, path TCrossPointList) returns boolean
as
    found boolean := false;
    cursor exits is select DEREF(s.endPoint) from slope s, table(s.parts) sparts
    	where sparts.startPoint=REF(self);
begin
    open exits;
    loop
         fetch exits into point;
	 exit when exits%notfound;
	 path.extend;
	 path(path.last) := point;
	 if(point.getWayTo(dest, path)) then
	      found := true;
	      exit;
	 else
	      path.delete(path.last);
	 end if;
    end loop;
    close exits;
    return found;
end;

Si jamais slope est un chemin et slopepart est un bout allant d'un point à un autre. Voilà le code que j'ai écrit, pour les boucles infinies c'est vrai qu'il faut vérifier que le point actuel n'est pas dans la liste path.

Donc je dois rajouter cette fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
create or replace function existence(point TCrossPoint, path TCrossPointList) returns boolean
as
    found boolean := false;
begin
     for i in 1..path.count loop
	 if(point = path(i)) then
	      return true;
	 end if;
    end loop;
    return false;
end;