Discussion :

[rom117]

Bonjour,

Je cherche à afficher un polynome de la forme : 1+3x+2x² à l'aide de la liste L=[[1, 0], [3, 1], [2, 3]]. Dans chaque sous-liste, le premier nombre est le coefficient et le deuxième nombre est la puissance du x.
Mon programme actuel marche mais à la fin il me renvoie true, je ne comprends pas pourquoi !

Voici un extrait :

Code prolog :

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
/*we test if a given variable is a non-empty list*/
islist([_]).
islist([_|T]) :- islist(T).
 
 
/*for the last component*/
displayBis([[X,X1]]) :-
	myWrite(X,X1).
 
 
/*for all the components except the last one*/
displayBis([[X,X1]|L]):-
	islist(L),
	myWrite(X,X1),
	displayBis(L),
	!.

Voici ce que m'affiche l'exécution du programme :

Code :

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

1
2
3
[debug] 22 ?- displayBis([[1,0],[3,1],[2,3]]).
1 + 3x + 2x^3
true.

Une idée ?

Merci d'avance,

Romain

[Trap D]

A cause du cut final, il enlève les backtracks éventuels.
Fais l'essai en l'enlevant.

[rom117]

J'ai enlevé le dernier cut.
Voilà ce que ça me donne :

Code prolog :

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

1
2
3
4
5
6
2 ?- displayBis([[1,0],[3,1],[2,3]]).
1 + 3x + 2x^3
true ;
false.
 
 3 ?-

[Trap D]

Oui, qu'est-ce qui te chagrine ?
true, car le prédicat réussit, false parce qu'il n'y a pas d'autres solutions.

[rom117]

Ben c'est pas que c'est une erreur c'est que je ne voudrais afficher que le résultat, je ne veux pas de faux, pas de vrai.

Je voudrais quelque chose comme ça :

Code prolog :

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

1
2
3
4
2 ?- displayBis([[1,0],[3,1],[2,3]]).
1 + 3x + 2x^3
 
 3 ?-

C'est possible ?

[Trap D]

Ben non !
Prolog est extrèmement courtois, il te rend compte du succès ou de l'échec de ses recherches pour répondre à la question posée

[rom117]

Ok, merci pour l'info .

Résolu !

[LeNeS]

Bonjour, je suis assez nouveau en Prolog... je voulais savoir comment tu disposes de ta fonction myWrite/2 pour l'affichage de polynome.
Merci

[rom117]

Bonjour,

Voici la fonction myWrite:

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
/*if the coefficient equals zero*/ 
myWrite(0,P) :- 
	!, 
	write(''). 
/*for the constant*/ 
myWrite(X,0) :- 
	!, 
	write(X). 
 
/*for the 2d component x^1*/ 
myWrite(X,1) :- 
	!, 
	write(' + '), 
	write(X), 
       	write('x'). 
 
 
/*for the "normal" display*/ 
myWrite(X,P) :- 
	write(' + '), 
	write(X), 
	write('x^'), 
	write(P).