Discussion :

[Treuze]

Bonjour,

Tout est dans l'énoncé ! Pour un appel de la fonction liste(1,m,L), j'aimerais obtenir [1,2,3,...,m]

Voilà ce que j'ai fait :

Code :

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

1
2
liste(M,M,[M]) .
liste(N,M,[N | R] ) :- lt(N,M) , liste(N+1,M,R).

C'est simple mais je n'ai pas de compilo Prolog4 ... est-ce que la liste sera générée à l'envers ou non ?

Merci

[je®ome]

Salut,

il y a un peu plus facile que d'utiliser une récurrence pour ce genre de choses.

Code :

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

findall(X,between(1,10,X),L),member(N,L).

pour plus d'infos sur findall, tu peux aller jetter un coup d'oeil par ici

voila, bonne continuation,

je®ome

[Trap D]

Ta liste est générée dans le bon ordre.
Pas sûr qu'en Prolog4, il existe le findall et le between.

[je®ome]

Pas sûr qu'en Prolog4, il existe le findall et le between.

Je ne savais pas que c'était propre à certains Prolog's'.

pour une fois où jpensais avoir pu répondre à une question sur Prolog

[Trap D]

C'est peut-être moi qui me plante...

[gorgonite]

sinon sans ces fonctions compliquées...

Code :

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

1
2
liste(M,M,[M]) .
liste(N,M,[N | R] ) :- lt(N,M) , N1 is N+1,  liste(N1,M,R).

mais garre à la récursion infinie... pas de test ici

sinon il faudra ajouter

Code :

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

liste(N,M,[] ) :- N>M.

[Trap D]

En supposant que lt(N,M) soit équivalent à N < M, on obtient en SWI-Prolog

Code :

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

1
2
liste(M,M,[M]) .
liste(N,M,[N | R] ) :- N < M , N1 is N + 1, liste(N1,M,R).

On obtient bien une liste sans problème de récursion, (la liste est reconstruite à partir de [M]).

[pcaboche]

Dites, c'est vraiment une question "Débutant", ça ne devrait *normalement* pas vous poser trop de problème.

Sinon, pour rester dans les fonctions pas standard, en swi-prolog, on a le prédicat numlist/3 :

Code :

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

1
2
| ?- numlist(1, 8, L).
L = [1, 2, 3, 4, 5, 6, 7, 8]

(voir mon tuto sur les listes)

[bounty1342]

en gnu-prolog il suffit d'utiliser length en (-,+).

Templates

length(?list, ?integer)

[Trap D]

Tu es sûr que length(L, 8) génère L = [1, 2, 3, 4, 5, 6, 7, 8] ?

[gorgonite]

Tu es sûr que length(L, 8) génère L = [1, 2, 3, 4, 5, 6, 7, 8] ?

en gnu prolog... non, j'ai testé
à moins qu'il y ait une option bizarre à configurer quelque part, mais ça m'étonnerait

[Trap D]

C'est un peu ce que je pensais, une lecture en diagonale du fil

[billynirvana]

Code :

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

1
2
3
4
5
generer(x,x,x.nil)->;
generer(x,y,x.L)
	val(x '<' y, 1)
	val(x + 1, x')
	generer(x',y,L);

Code :

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

generer(1,10,L);

CU