Discussion :

[l1informatique]

Bonjour,

le tri à bulles
.
Il y a plusieurs méthodes de tri : ici l'idée est la suivante : je déclare un prédicat qui vérifie si un
élément est plus grand qu'un autre. Ensuite dans une liste je cherche deux éléments adjacents tel que le
prédicat plus grand donne vrai, alors je les échange et je crée une Liste1 au fur et à mesure et à la fin
Liste contient tous les élément de la première liste mais triés. Si il n'y a plus d'éléments adjacents pour
lesquels plus grand est vrai, cela veut dire que ma liste est triée

Code :

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

1
2
3
4
5
6
7
8
9
10
11
une_bulle([X], 0, [X]).
une_bulle([X, Y | R], 1, [Y | L]) :- X > Y, !,
une_bulle([X | R], _A, L).
 
 
une_bulle([X, Y | R], A, [X | L]) :-
	une_bulle([Y | R], A, L).
 
tri_bulle(L1, L) :-
	une_bulle(L1, A, L2),
	(   A == 0, L = L2 ; tri_bulle(L2, L)).

je ne trouve pas comment faire pour faire un code pour introduire append ??

[Trap D]

Bonjour.
Pourquoi vouloir utiliser append dans ce code, il est très bien.
Append ne sert que lorsque l'on veut concaténer des listes, ici, à chaque fois, on met un élément en tête de la liste, pas besoin de append.

[l1informatique]

Parceque le prof m'a envoyé la réponse on distant qu'il veut un prédicat append dans la solution et cut !

[Trap D]

En y réfléchissant un peu, on peut pfaire un code avec append mais il n'est pas très intéressant.
L'idée est de recopier les elements de la liste à trier (avec un append donc) dans un nouvelle liste, et on met un flag à 1 a chaque fois qu'une inversion a été constatée.
A la fin
On repète l'opération tant que le flag est à 1.

Je te donne le code pour ce qu'il vaut, il en existe surement des meilleurs, mais le tien est bien mieux.

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
tri_bulle(L1, L2) :-
	tri_bulle(L1, [], A, L),
	(   A = 0
	->  L = L2
	;    tri_bulle(L, L2)).
 
tri_bulle([X, Y], R, 0, L) :-
	X < Y, !,
	append(R, [X, Y], L).
 
tri_bulle([X, Y], R, 1, L) :-
	append(R, [Y, X], L).
 
tri_bulle([X, Y | T], R, A, L) :-
	X < Y, !,
	append(R, [X], R1),
	tri_bulle([Y | T], R1, A, L).
 
tri_bulle([X, Y | T], R, 1, L) :-
	append(R, [Y], R1),
	tri_bulle([X | T], R1, _, L).

[l1informatique]

Je vous remercie j'ai compris comment faire