Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Prolog Discussion :

Problème avec assert


Sujet :

Prolog

  1. #1
    Candidat au Club
    Problème avec assert
    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    % set_echo: ce prédicat active l'affichage par le prédicat echo
    set_echo :- assert(echo_on).
     
    % clr_echo: ce prédicat inhibe l'affichage par le prédicat echo
    clr_echo :- retractall(echo_on).
     
    % echo(T): si le flag echo_on est positionné, echo(T) affiche le termeT
    %  sinon, echo(T) réussit simplement en ne faisant rien.
     
    echo(T) :- echo_on, !, write(T).
    echo(_).

    exécution:
    Code :Sélectionner tout -Visualiser dans une fenêtre à part
         set_echo, echo('salut').

    Voila mon problème au lancement de echo j'ai le droit à: "procedure `echo_on' does not exist" hors quand je fais "set_echo, listing" echo_on est bien rajouté.
    Si vous avez une idée je suis preneur.

  2. #2
    Rédacteur/Modérateur

    Quel Prolog utilisez-vus ?
    "Sur le mien", SWI-Prolog 7.7.2 sous Windows 10 je n'ai pas ce problème (alors que je devrais l'avoir, puisque effectivement echo_on n'est pas déclaré !
    Cependant, je pense qu'il y a un problème de conception quelque part.
    Que désirez-vous faire exactement ?
    Est-ce ceci ?
    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    :- dynamic(echo/1).
    % set_echo: ce prédicat active l'affichage par le prédicat echo
    set_echo :- retractall(echo(_)), assert(echo(on)).
     
    % clr_echo: ce prédicat inhibe l'affichage par le prédicat echo
    clr_echo :- retractall(echo(_)), assert(echo(off)).
     
    % echo(T): si le flag echo_on est positionné, echo(T) affiche le termeT
    % sinon, echo(T) réussit simplement en ne faisant rien.
     
    affiche(T) :-
        echo(on), write(T).
    affiche(_).

    Avec à l'exécution :
    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
     
    ?- affiche(toto).
    true.
     
    ?- set_echo, affiche(toto).
    toto
    true.
     
    ?- clr_echo.
    true.
     
    ?- affiche(toto).
    true.
    "La haine seule fait des choix" - Koan Zen
    "Il ne faut pas être meilleur que les autres, il faut être meilleur que soi." Albert Jacquard
    "Ceux qui savent où ils ont posé leur parapluie ne sont pas alcooliques." - pgibonne.
    Faites du Prolog, ça vous changera les idées !
    Ma page Prolog
    Mes codes sources commentés

    Mon avatar : La Madeleine à la veilleuse de Georges de La Tour

###raw>template_hook.ano_emploi###