Discussion :

[je®ome]

Bonjour,

J'ai 2 questions:

1)

est-ce que c'est possible de choisir un fait aléatoirement et de supprimer les autres.
p.ex. si je dispose de ceci :

Code :

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

:-dynamic (fait/2)

Code :

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

1
2
3
fait(1,4)
fait(2,4)
fait(3,4)

je souhaite éliminer 2 faits.
Si N fait satifont la condition, je veux en enlever(N-1) aléatoirement.

2)

Je souhaite appeler un prédicat avec N entiers différents, mais également aléatoirement.
p.ex. :

Code :

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

1
2
3
4
prédicat(3)
prédicat(2)
prédicat(4)
prédicat(1)

pour l'instant j'ai fait :

Code :

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

1
2
between(1,4,N),
prédicat(N).

mais ce n'est pas aléatoire.
Je ne sais pas comment faire pour être sûr de les avoir tous les quatres.
Sauf créer une liste aléatoire. Mais dans ce cas là, ma question revient à la première,
comment choper un élément d'une énumération aléatoirement ?


J'espère que c'est compréhensible.

[pcaboche]

Ben en gros, la solution à tes problèmes, c'est:

1. tu crées une liste de toutes les solutions possibles grâce au prédicat findll/3
2. soit:
- tu gardes au hasard un élément de la liste et tu supprime les autres
soit:
- tu mélanges la liste
- tu énumères un à un les éléments de la liste grâce au prédicat member/2

C'est pas compliqué, si ?

[je®ome]

C'est vrai, ce n'est pas compliqué.
D' ailleurs c'est ce que voulais faire, mais je ne savais pas comment m'y prendre en prolog.
J'ai fait ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
aua(Taille):- 
	between(1,Taille,Y),
	findall(X,pred(X,Y),L),
	aua1(L,Y).
aua1(L,Y):-	
	length(L,N),
	N>1,
	random(0,N,N1),
	nth0(N1,L,Case),
	select(Case,L,La),
	retract(pred(Case,Y)),
	aua1(La,Y).

Et ça marche très bien.
Merci pour cette aide , toute ma partie algo fonctionne à présent, reste à faire une petite interface !!
P.s. : La solution ne semblait pas tellement simple à une vingtaine de lecteurs du post, sinon il y aurait bien eu quelqu'un avant qui aurait répondu.

En tout cas, encore merci à toi pcaboche.