Discussion :

[Alpdogan]

Bonjour,

j'ai un projet en prolog, et j'ai besoin d'un coup de pouce.



J'un dictionnaire:

Code :

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

1
2
3
4
5
6
mot(armoire).
mot(aaron).
mot(gtgtg).
mot(abaissement).
mot(abaisser).
mot(abandon).

il faut que l'utilisateur choisisse un mot de la liste et que le l'ordinateur puisse le trouver.

D'abord j'ai fait un prédicat Commencer :

Code :

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

1
2
3
4
5
6
7
commencer(A):-
  write('Veuillez choisir un mot svp et dites le nombre de lettre qu il possède'), 
  nl,
  read(A), nl,
  write('Le mot est composé de '), 
  write(A), 
  write(' lettres').

ensuite je veux mettre dans une liste les mots de 'A' lettre.
cependant je n'y arrive pas, voila ce que j'ai fait: ici A=5

Code :

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

1
2
3
4
5
decomposer(R):- 
   mot(X), 
   atom_chars(X, L), 
   length(L, 5), 
   findall(L, atom_chars(X, L), R).

j'obtiens : R = [[a,a,r,o,n]]
R = [[g,t,g,t,g]]

alors que je voudrais : R = [[a,a,r,o,n],[g,t,g,t,g]]

merci d'avance.

[Alpdogan]

Svp de l'aide !!

[Trap D]

C'était presque ça :

Code :

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

1
2
decomposer(R):-
   bagof(L, X^(mot(X), atom_chars(X, L), length(L, 5)), R).

[Alpdogan]

Trad D, je te remercie infiniment, grâce à ta perspicacité, j'ai réussi à finir mon projet.