Discussion :

[gorgonite]

Salut,

Je suis sous GNU Prolog...

Code :

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

1
2
3
4
5
6
 
% on calcule les differences de X avec tous les elements de L
calc_all_differences(_,[],[]).
calc_all_differences(X,[H|Q],L) :-
	N is X-H,
	calc_all_differences(X,Q,[N|L]).

j'ai cerné le problème...
en gros, quand je demande

Code :

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

 calc_all_differences(3,[1,0],L).

il me dit yes, sans me donner la valeur de L ([1,2])

[pcaboche]

Ca ira mieux si tu fais comme ça:

Code :

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

1
2
3
4
calc_all_differences(_,[],[]).
calc_all_differences(X,[H|Q],[N|Q1]) :-
  N is X-H,
  calc_all_differences(X,Q,Q1).

Exécution :

Code :

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

1
2
3
?- calc_all_differences(3,[1,0],L).
 
L = [2, 3]

Je ne comprends pas pourquoi tu cherches à obtenir [1,2] comme résultat.

[gorgonite]

Ca ira mieux si tu fais comme ça:

Code :

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

1
2
3
4
calc_all_differences(_,[],[]).
calc_all_differences(X,[H|Q],[N|Q1]) :-
  N is X-H,
  calc_all_differences(X,Q,Q1).

Exécution :

Code :

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

1
2
3
?- calc_all_differences(3,[1,0],L).
 
L = [2, 3]

parfait...
ça se voit que cela fait un moment que je n'ai touché au prolog... avec de telle erreur

Je ne comprends pas pourquoi tu cherches à obtenir [1,2] comme résultat.

il devait être tard...

[pcaboche]

Sinon, il y a encore une autre façon de faire (en swi-prolog) :

Code :

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

1
2
3
4
5
minus(A,B,C) :-
  C is A-B.
 
calc_all_differences(X, L1, L2) :-
  maplist(minus(X), L1, L2).

[gorgonite]

Merci beaucoup... mais je suis "obligé" de bosser sous GNU-Prolog

[pcaboche]

Merci beaucoup... mais je suis "obligé" de bosser sous GNU-Prolog

Quand je donne une solution alternative pour swi-prolog, c'est à titre d'information pour un éventuel visiteur qui passerait par là (suite, par exemple, à une recherche sur internet).

Je ne sais pas ce qui est implémenté sous GNU-Prolog.