Prolog et javascript

**sirius911** · 23/12/2009, 17h48

Bonjour à tous,
voilà depuis un certain temps je m'exerce à faire quelques programmes en prolog pour des énigmes (avec l'aide de certain ici

j'aimerai pouvoir regrouper ces petits programmes sur un site pour pouvoir les utiliser "online" sans avoir à executer sous prolog.
Je pensais donc à quelque chose en javascript qui puisse utiliser le prolog mais je ne sais pas par quoi commencer ...

**sirius911** · 23/12/2009, 17h51

Précision j'ai vu qu'il y avait des choses la dessus sur SWI-Prolog.org mais je cherche simple et si possible en français !!!
comme par exemple
ici http://ioctl.org/logic/prolog-latest
mais ça ne marche pas très bien...

**Trap D** · 23/12/2009, 22h35

Je ne suis pas bien sur d'avoir compris ce que tu recherches.
Tu peux faire du web avec Prolog, il y a plusieurs exemples sur ce forum dont celui-ci qui est assez developpé et cet autre.

**sirius911** · 24/12/2009, 11h01

Bonjour Trap D
Je pense que c'est la bonne voie...
pouvoir afficher ou rentrer des données par le web, mais la résolution du problème se fait par un programme en prolog...
j'ai regardé tes liens...
il y a un truc à faire avec psp, c'est ça ?
si j'ai bien compris... il faut installer sur mon serveur Apache, psp, pour que sur une page (Html ? php ? autre ?) je puisse intégrer un programme en Prolog... c'est ça ?

P.S. Joyeux Noël !!

**Trap D** · 24/12/2009, 13h22

Bonjour

Tu as tout compris. L'installation ne devrait pas être difficile sous Apache car avec IIS sous Vista j'y suis arrivé... mais je ne sais plus très bien comment ça fonctionne exactement.

Teste le premier exemple que j'ai donné, il marche très bien.

Bonnes fêtes à toi aussi.

**sirius911** · 24/12/2009, 19h30

Cool super
j'ai tout installer et ça m'a permit de comprendre des trucs sur apache...
tout fonctionne j'ai meme pu tester une petite résolution de problème : que voici :
4 chiffres A, B, C, D
la somme de ces 4 chiffres fait 15
la somme du premier et du dernier fait 9
le produit des 2 premiers est 12 et
le produit des 2 derniers est 15

le fichier est

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
 
 
nombre(N):-member(N,[0,1,2,3,4,5,6,7,8,9]).
cherche([W,X,Y,Z]):-nombre(W),nombre(X),nombre(Y),nombre(Z),15 is W + X + Y + Z ,9 is W + Z,12 is W * X,15 is Y * Z.
 
% Checks so that the user doesn't try and do things he or she shouldn't
check(nombre(_)).
check(cherche(_)).
check('!').
 
 
go(Get) :-
	% Get the query from the GET request
	member(q=Query,Get),
	% Convert to a term
	catch(atom_to_term(Query, Term, Bindings),_,fail),
	nonvar(Term),
	% Check user has supplied a valid query
	check(Term),
	!,
	% Find all solutions
	forall(Term, (bind(Bindings), write(Term), nl)),
	!.
 
% This binds a Variable=Name list so that unbound variables are bound to their Name
bind([]).
 
bind([A=A|T]) :-
	!,
	bind(T).
 
bind([_|T]) :-
	bind(T).
 
/*<html>
<head>
     <title>PSP Demo</title>
</head>
<body>
 
<a href="template.prolog?t=psp#psp">Back</a><br>
<a href="family.html">View Source</a><br><br>
 
<!-- Just show the database, plain old text -->
Database:
<pre>
 
nombre(N):-member(N,[0,1,2,3,4,5,6,7,8,9]).
cherche([W,X,Y,Z]):-nombre(W),nombre(X),nombre(Y),nombre(Z),
	15 is W + X + Y + Z ,
	9 is W + Z,
	12 is W * X,
	15 is Y * Z.
</pre>
 
<!-- Work out what the query was -->
<?, (member(q=Query,Get);Query='No Query Supplied') ,?>
 
<!-- Show the query -->
Question:
<pre>
<?= Query ?>
</pre>
 
<!-- Show the solutions -->
Solutions:
<pre>
<?, once(
             go(Get)
         ;
             ?>Error: Invalid Term (The query must be a valid prolog query)<?
    )
  ,?></pre>
 
<!-- And have an input box for the next query -->
<form method="GET" action="essais.prolog">
New Query: <input type="text" name="q"><br>
<input type="submit">
</form>
Exemples de questions:
<pre>
cherche(N).
</pre>
</body>
</html>*/

Je suis super contente que ça marche même si c'est un programme super simple et qui sert à rien

Bonnes fêtes A tous....

Prolog et javascript

Prolog

Vue hybride

Discussions similaires

Partager

Partager