Discussion :

[arknos]

Bonjour, ou re- bonjour.
J'espère que vous ne m'en voudrez pas d'avoir encore une question.


J'ai déclarer 4 predicats comment suit :

Code :

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

1
2
3
4
:- dynamic ( sujet/1 ).
:- dynamic ( verbe/1 ).
:- dynamic ( complément/1 ).
:- dynamic ( lire/3 ).

Je cherche comment sauvegarder les faits ajouter au cours du traitement, pour pouvoir terminer Prolog et recharger les faits par la suite.

J'ai essayé, mais ne parviens qu'à sauvegarder les clauses ci-dessus.


J'en suis là :

Code :

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

1
2
3
4
save :-
    tell('subjects.pl'),                                   
    listing(sujet),
    told.

S'il vous palit !!

Merci pour votre éclairage.

[Trap D]

Ayant perdu ma boule de cristal, je voudrais savoir quel genre de faits ne pouvez-vous pas sauvegarder ?
Comment sont-ils mémorisés ?
Le principe tell/told est parfait.

[arknos]

Bonjour Trap_D.

Et bien avec la clause ":- dynamic (sujet/1)." après j'ajouter mes sujets avec assertz((sujet(X)) ; Je souhaiterais sauvegarder les sujet ajouté avec assertz/1.

normalement en dynamique après avoir ajouté : sujet(je), je devrais sauvegarder "sujet(je)".

Mais je n'ai dans le fichier "subjects.pl" que la clause ":- dynamic (sujet/1).". (que d'ailleurs je ne veux pas dans mon fichier subjects.pl puisque déjà dans le fichier principal.

Merci pour vos réponses.

[Trap D]

Il m'est arrivé d'avoir besoin de suavegarder des faits mémorisés au cours de l'utilisation d'un programme.
Je faisais comme vous, je sauvegardais les données, à la fermeture du programme avec le même genre de mécanisme

Code :

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

1
2
3
4
save :-
    tell('subjects.pl'),                                   
    listing(sujet),
    told.

Je lisais ce fichier au lancement suivant du programme et tout fonctionnait bien. Je ne comprends pas ou est le problème.

[arknos]

Bonjour Trap_D.

Effectivement, le prédicat sujet/1 n'existe pas.

Alors ça viens de mon prédicat écrire/3 :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
/* Ajout des prédicats Sujet/1 et Verbe/1 s'ils n'existe pas et des prédicats */
/* Complément/1 et lire/3                                                     */
écrire(Sujet, Verbe, Complément) :-
    (not(verbe(Verbe) ->
             assertz((verbe(Verbe))))),
    (not(sujet(Sujet) ->
             assertz((sujet(Sujet))))),
    assertz((complément(Complément))),
    assertz((lire(Sujet, Verbe, Complément))).

Et je crois que j'ai trouver, les nots ne sont pas terminé à temps.

Merci Trap_D.

Je suis déolé, a propos, Trap_D, c'est hors sujet.
Merci beaucoup encore.