passage par POST de nombre à Prolog

**sirius911** · 24/10/2010, 15h21

bonjour à tous
Voilà mon problème j'ai un fichier nombre.prolog fonctionnant avec swi-prolog et apache
je doit passer des paramètres à ce fichier par POST
4 variables(VAR1,VAR2,VAR3 et VAR4) pour résoudre avec prolog le problème de math suivant

on a W,X,Y,Z 4 entiers entre 0 et 9.
la somme de tous ces nombres est égal à VAR1
Le dernier plus le premier font VAR2
le produit des 2 premiers fait VAR3
le produit des 2 derniers fait VAR4

voici mon fichier :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
nombre(N):-member(N,[0,1,2,3,4,5,6,7,8,9]).
 
 
cherche([W,X,Y,Z],C1,C2,C3,C4):-
 
		nombre(W),nombre(X),nombre(Y),nombre(Z),
		C1 is W + X + Y + Z,
		C2 is W + Z,
		C3 is W * X, 
		C4 is Y * Z,
		write('W = '),write(W),write(' X = '),write(X),write(' Y = '),write(Y),write(' Z = '),write(Z),write('<br/>').
 
 
/*<html>
<head>
     <title>Nombres</title>
</head>
<body>
 
 
 
<form method="POST" action="nombre.prolog">
W + X + Y + Z = <input type="text" name="var1" value = 15><br>
W + Z = <input type="text" name="var2" value=9><br>
W * X = <input type="text" name="var3" value=12><br>
Y * Z = <input type="text" name="var4" value=15><br>
<input type="submit" value="calcul">
</form>
 
Variables : <br/>
<pre>
<?=Post?><br/>
</pre>
 
<?,member(var1=A,Post),?><br/>
<?,member(var2=B, Post),?><br/>
<?,member(var3=C, Post),?><br/>
<?,member(var4=D, Post),?><br/>
 
<!-- Show the solutions -->
Solutions:<br/>
 
<?, cherche(N,A,B,C,D),?>
 
 
</body>
</html>*/

ors mon code ne fonctionne pas car il semble que les A,B,C,D ne soit pas des nombres, lorsque je les affiche, j'ai les bonnes valeurs mais
si je fait par exemple un Toto is A + 1, il m'affiche un
is/2: Arithmetic: `15/0' is not a function

quelqu'un à une idée pour transformer mes A en variable de Nombre ?
merci

**sirius911** · 25/10/2010, 01h25

Bon j'ai trouvé et je donne ma solution
(si d'autre personnes ont mieux ...)
en faite lorsqu'on récupère les variables par Get ou Post, on des atoms :

member(var1=X,Post) me renvoi un atom
donc j'utilise atom_to_term(+Atom,-Term,-Bindings)

J'ai donc rajouté une variable de transition :
member(var1=AA,Post),atom_to_term(AA,A,_) --> A est bien un nombre.

voili voilou.

passage par POST de nombre à Prolog

Prolog

Vue hybride

Discussions similaires

Partager

Partager