Discussion :

[khayyam90]

Bien le bonjour,

je cherche à donner un panel de valeurs à des variables contenues dans une liste si celles-ci n'ont pas encore de valeur.
Donc, si un variable a déjà une valeur, on passe, sinon, on lui donne une liste de possibles avec un intsplit

Code :

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

1
2
3
4
5
give_values([]).
give_values([X|R]) :-
   var(X),
   intsplit(X),
   give_values(R).

le souci est qu'il essaie quand même de faire le intsplit si la variable X a déjà une valeur, et évidemment ...

error: error('Integer list expected',intsplit)

Comment faire ? Quelle est la méthode qui va bien ?

[pcaboche]

T'es sûr que var/1 fait bien son boulot ?

Fait:

Code :

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

1
2
3
4
5
6
 give_values([]).
give_values([X|R]) :-
       var(X),
       write(X),
       intsplit(X),
       give_values(R).

pour voir si les variables sont bien libres.

[khayyam90]

oui, var/1 faisait bien son boulot.

c'était mes prédicats qui n'étaient pas complets et le intsplit qui, pour une raison qui m'échappe, fonctionne [mieux] s'il est appelé une seule fois avec comme argument toute la liste et non pas juste un élément de la liste.