Discussion :

[guillaume07]

Hello,

Toujours en phase d'apprentissage, je souhaitais à titre d'excercie doubler les élements d'une liste.

Code :

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

1
2
dbl([],_).
dbl([H|L1],[H2|L2]) :- dbl(L1,[H2|_]) , H2 is H*2.

mais je me retrouve avec une liste L2 qui à un terme non défini à la fin.

Comment faire pour ne pas avoir ce terme ?

Merci

[pcaboche]

Tu peux faire comme ça, mais ça va pas aider:

Code :

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

1
2
double(L, L2) :-
  maplist(plus, L, L, L2).

La réponse que tu attends, c'est ça:

Code :

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

1
2
3
4
double([],[]) :- !.
double([X|Q],[X2|Q2]) :- 
  X2 is X*2,
  double(Q, Q2).

[guillaume07]

Code :

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

1
2
3
4
%doubler une fois sur deux les éléments d'une liste
double([],[]) :- !.
double([X|Q],[X2|Q2],1,N) :- double(Q, Q2, N,N).
double([X|Q],[X2|Q2],K,N) :- K>1, K1 is K -1 , X2 is X*2, double(Q, Q2, K1,N).

et là pourquoi ça ne fonctionne pas ?

[pcaboche]

et là pourquoi ça ne fontionne pas ?

Fait un

Code :

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

trace.

et essaye de comprendre tes erreurs !

Code :

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

1
2
3
4
5
6
7
double_1sur2([X,Y|L1],[X,Y2|L2]) :- 
  !,
  Y2 is Y*2,
  double_1sur2(L1,L2).
 
 double_1sur2([X],[X]) :- !.
double_1sur2([],[]) :- !.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
double_1surN(N, L, R) :-
  double_1surN(N, N, L, R).
 
double_1surN(_, _, [], []) :- !.
double_1surN(1, N, [X|L1], [X2|L2]) :-
  !,
  X2 is X*2,
  double_1surN(N, N, L1, L2).
 
double_1surN(I, N, [X|L1], [X|L2]) :-
  !,
  NI is I-1,
  double_1surN(NI, N, L1, L2).

[guillaume07]

merci je vais méditer tout ça , et penserai au trace à l'avenir