petit probleme de prolog

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : petit probleme de prolog

kerplunk

alors voila, j'ai 9 cases, je voudrais tester qu'au moins 2 cases valent 2 par exemple, je pensais utiliser la récursivité d'une fonction mais il doit y avoir quelque chose en plus a ajouter :

Code :

:- use_module(library(clpfd)).
vaut2(Case):-
Case#=2.
plusde2vaut2( A1,A2,A3,B1,B2,B3,C1,C2,C3 ):-
vaut2(A1), plusde2vaut2( 0,A2,A3,B1,B2,B3,C1,C2,C3 );
vaut2(A2), plusde2vaut2( A1,0,A3,B1,B2,B3,C1,C2,C3 );
vaut2(A3), plusde2vaut2( A1,A2,0,B1,B2,B3,C1,C2,C3 );
vaut2(B1), plusde2vaut2( A1,A2,A3,0,B2,B3,C1,C2,C3 );
vaut2(B2), plusde2vaut2( A1,A2,A3,B1,0,B3,C1,C2,C3 );
vaut2(B3), plusde2vaut2( A1,A2,A3,B1,B2,0,C1,C2,C3 );
vaut2(C1), plusde2vaut2( A1,A2,A3,B1,B2,B3,0,C2,C3 );
vaut2(C2), plusde2vaut2( A1,A2,A3,B1,B2,B3,C1,0,C3 );
vaut2(C3), plusde2vaut2( A1,A2,A3,B1,B2,B3,C1,C2,0 ).
solution(A1,A2,A3,B1,B2,B3,C1,C2,C3):-
plusde2vaut2(A1,A2,A3,B1,B2,B3,C1,C2,C3).

si vous pouvez me dépanner.. merki

Publicité

rufo

Pas me confondre avec Lycos!

Développer en Prolog, je te plains... J'en ai fait un peu y'a 3 ans, ben j'ai pleuré. J'espère que qq'un saura t'aider parce que moi, j'ai tout oublié.

Truk

Salut ! :bounce:

suis nouvo ici !
je cherchais des infos pour pouvoir donner un peu plus de gueule graphiquement a mon jeu prolog.. mais je trouve po...
et pis suis tombe ici sur ton topic.. et pis me suis dis ke je pouvais te filer un ptit coup de main.

C ptetre un peu tard. mais c l'histoire de 5 mins ^^

je te propose une petite solution (celle qui suit) :
tu noteras ke le premier appel est superflu mais c pour pouvoir ajouter les predicats si tu veux faire des traitements annexes.
de cette maniere tu peux modifier ton fichier pour d'autre quantite de donnees, ou ajouter des predicats pour reformater les donnes brutes etc... bref c reutilisable et vite fait !

pd2v2(A1,A2,A3,B1,B2,B3,C1,C2,C3) :- cbVo2(A1,A2,A3,B1,B2,B3,C1,C2,C3, N), N>=2.
cbVo2(A1,A2,A3,B1,B2,B3,C1,C2,C3, N) :- cbLV2([A1,A2,A3,B1,B2,B3,C1,C2,C3],N).

cbLV2([], 0).
cbLV2([2|Q], N) :- cbLV2(Q, N1), N is N1+1.
cbLV2([T|Q], N) :- T \= 2, cbLV2(Q, N) .

voila si kkun a des infos pour une applets ou autre pouvant faire le lien avec un prg prolog. ca m'interesse ! bye :hello:

FORUM HardWare.fr

Programmation

Divers

petit probleme de prolog

Sujets relatifs
Problème d'insert d'une image dans une base Mysql	Problème avec WinZip
[C] problème avec libération de la mémoire	[SQL] 2 Insert en 1 -> Problème
Problème avec fichier xml	Problème avec la taille d'un tableau [résolu]
calque centré qui pose probleme	[OpenGL] Problême avec glDrawPixels
Probleme de concatenation	petit probleme avec une JApplet
Plus de sujets relatifs à : petit probleme de prolog

Page générée en 0.038 secondes