Discussion :

[bziznaz0]

Bonjour,
J'ai un prédicat qui effectue des changements sur une liste est renvoi les listes résultats ainsi qu'une liste des index des atomes modifiés :

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
 
No
137 ?- changeListe([2,6,4],NListe,LIndexAtomes).
 
NListe = [8, 6, 4],
LIndexAtomes = [1] ;
 
NListe = [3, 5, 4],
LIndexAtomes = [1,2] ;
 
NListe = [2, 9, 4],
LIndexAtomes = [2] ;
 
NListe = [5, 9, 7],
LIndexAtomes = [1,2,3] ;
 
No
138 ?-

Je dois écrire un autre prédicat qui prend une liste de listes, applique changeListe sur chaque sous liste, et renvoi la liste de listes résultante ainsi que le numéro de la sous liste changée.
Exemple :

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
 
No
137 ?- changeListedelistes([[2,6,4],[1,2,3],[5,2,9]],NListedelistes,NumSousliste,LIndexAtomes).
 
NListedelistes = [[8,6,4],[1,2,3],[5,2,9]],
NumSousliste = 1
LIndexAtomes = [1] ;
 
NListedelistes = [[8,6,7],[1,2,3],[5,2,9]],
NumSousliste = 1
LIndexAtomes = [1,3] ;
 
NListedelistes = [[2,6,4],[2,2,3],[5,2,9]],
NumSousliste = 2
LIndexAtomes = [1] ;
 
NListedelistes = [[2,6,4],[1,7,7],[5,2,9]],
NumSousliste = 2
LIndexAtomes = [1,2,3] ;
 
NListedelistes = [[2,6,4],[1,2,3],[1,3,9]],
NumSousliste = 3
LIndexAtomes = [1,2] ;
 
No
138 ?-

Des idées ?

[Trap D]

Montre d' abord ce que tu as écrit.

[bziznaz0]

Montre d' abord ce que tu as écrit.

Par contre je n'ai pas besoin pour l'instant du "LIndexAtomes" ...

Code :

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

1
2
3
4
5
6
7
 
changeListedelistes([Liste|G],[NListe|G],NumSousliste,Num) :-
  NumSousliste is Num +1,
  changeListe(Liste,NListe).
 
changeListedelistes([Liste|G],[Liste|NG],C,LC,NumLigne,Num) :-
  changeListedelistes(G,NG,C,LC,NumLigne,Num).

Et comme solution j'aimerai bien obtenir :

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
 
137 ?- changeListedelistes([[2,6,4],[1,2,3],[5,2,9]],NListedelistes,NumSousliste,0).
 
NListedelistes = [[8,6,4],[1,2,3],[5,2,9]],
NumSousliste = 1;
 
NListedelistes = [[8,6,7],[1,2,3],[5,2,9]],
NumSousliste = 1;
 
NListedelistes = [[2,6,4],[2,2,3],[5,2,9]],
NumSousliste = 2;
 
NListedelistes = [[2,6,4],[1,7,7],[5,2,9]],
NumSousliste = 2;
 
NListedelistes = [[2,6,4],[1,2,3],[1,3,9]],
NumSousliste = 3;
 
No
138 ?-

Mais pour ma solution j'obtiens toujours NumSousliste qui égale à 1

[Trap D]

Il faut travailler sur cette clause, tu y es presque.

Code :

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

1
2
3
changeListedelistes([Liste|G],[NListe|G],NumSousliste,Num) :-
  NumSousliste is Num +1,
  changeListe(Liste,NListe).

Une fois que tu as fait appel à changeListe tu rappelles changeListdeListe avec la suite et un nouveau numéro (Ce qui fait que tu as un argument en trop).
Il faut aussi que tu cherches le cas d'arrêt.

[bziznaz0]

Désolé mais j'ai pas réussi à le faire :\

[Trap D]

As - tu essayé quelque chose comme celà ?

Code :

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

1
2
3
4
5
6
7
changeListedelistes([],[],_) :- !.
 
changeListedelistes([Liste|G1],[NListe|G],Num) :-
  write('Numero de sous liste : '), write(Num), nl,
  changeListe(Liste,NListe),
  Num1 is Num +1,
  changeListedelistes([G1],[G],Num1).

Appel par : changeListedelistes([[2,6,4],[1,2,3],[5,2,9]],NListedelistes, 1).