exécution:
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(_).
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é.
Code : Sélectionner tout - Visualiser dans une fenêtre à part set_echo, echo('salut').
Si vous avez une idée je suis preneur.
Partager