Discussion :

[christophe D]

Bonjour,

Après avoir parcouru les articles ici : http://prolog.developpez.com/cours/#debutant
Je suis train d'essayer d'appliquer ce que j'ai cru comprendre !!

J'ai donc tenter de réaliser un petit programme afin de retrouver des anagrammes

Mais je me heurte a un problème !
voici l'ébauche de mon travail

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
mot(nue).
mot(une).
mot(mot).
 
anagramme(Mot) :-
string_to_list(Mot,Decomp),
permutation(Decomp,Perm),
string_to_list(Fin,Perm),
test(Fin).
 
test(X) :-
mot(X),
write(X).

si j'ai bien compris le principe du predicat, si quand j'appelle test(X) au moment du test mot(X) si cela échoue on n'exécute pas write(x)

Mon problème quand mot(X) échoue, la permutation s'arrête !! J'ai grand mal a comprendre comment faire un test comme en pascal du style if ... then ... else ...

merci de votre aide et explication

[Trap D]

Bonjour

Je te conseille fortement d'utiliser le débugueur pour suivre tes prédicats.
Tu le lances en ligne de commande par "gtrace.".
Il faut avoir décommenter la ligne
:- (current_prolog_flag(gui, true) -> guitracer ; true). dans le pl.ini pour que ça fonctionne bien.

Maintenant, il y a un problème au niveau string et atom, ce qui est courant en Prolog. Utilise plutôt atom_codes.
J'ai refait ton programme

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
mot(nue).
mot(une).
mot(mot).
 
anagramme(Mot) :-
	atom_codes(Mot, Decomp),
	permutation(Decomp,Perm),
        atom_codes(Fin, Perm),
	test(Fin).
 
test(X) :-
	mot(X),
	write(X), nl,
	fail.

On obtient

2 ?- anagramme(nue).
nue
une
false.

le fail force le backtrack, et le premier backtrack se retrouve avec permutation/2 et donc tu obtiens la liste.

Pour les entrées sortie, tu peux regarder ce bout de code

[christophe D]

Merci !!

J'avais compris que que les caractères étaient retourné en valeur numérique , mais j'ai encore beaucoup à apprendre !!

Je vais voir pour me trouver un bouquin, et continuer a faire de petit test comme ça

[Trap D]

Je ne peux que t'encourager
j'ai beaucoup appris en lisant "The Art of Prolog" de Sterling et Shapiro.

[christophe D]

Je ne peux que t'encourager
j'ai beaucoup appris en lisant "The Art of Prolog" de Sterling et Shapiro.

Je vais regarde alors !!

juste , une dernière question !!
du coup , j'ai récupérer une liste de mot , et via un petit script bash créer ma liste de mot(xxx).

peut on appeler ce fichier secondaire ??

a premiere vue

Code :

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

1
2
3
4
5
6
 
consult('liste_mot.pl').
 
ou 
 
['liste_mot'].

en debut de script , ne fonctionne pas alors que depuis prolog, en rentrant ceci , cela fonctionne

Code :

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

1
2
3
 
['anagramme'].
['liste_mot'].

[Trap D]

Rien ne t'empêche de mettre en directive de anagramme.pl

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
:- consult('liste_mot.pl').
 
anagramme(Mot) :-
	atom_codes(Mot, Decomp),
	permutation(Decomp,Perm),
        atom_codes(Fin, Perm),
	test(Fin).
 
test(X) :-
	mot(X),
	write(X), nl,
	fail.

Tu compiles et ça fonctionne très bien !

[christophe D]

Merci !

j'arrête pour ce soir ! et je me remet a lecture !

[christophe D]

Je ne peux que t'encourager
j'ai beaucoup appris en lisant "The Art of Prolog" de Sterling et Shapiro.

Je me permet de faire un petit up, demain je voudrais allez commander ce livre demain, es ce que pour un débutant mais avec des bases à peu près correct en programmation, ça n'attaque pas trop à un niveau élevé ??

merci de vos réponses

[Trap D]

Personnellement je ne l'ai pas trouvédur, il m'a semblé partir d'assez bas.

Tu as une liste de bouquins possibles ici , paragraphe 8 " Can you suggest some books on Prolog?"

[christophe D]

Personnellement je ne l'ai pas trouvédur, il m'a semblé partir d'assez bas.

Tu as une liste de bouquins possibles ici , paragraphe 8 " Can you suggest some books on Prolog?"

si il est pas si dur , ça me convient !! je voudrais pour une fois , avoir de bonne base; et ne pas retrouve avec un langage et un livre ou je décroche car certains éléments de base me manque

mais je garde ton lien !! pour la suite !!