prolog simple separation element liste

Bonjour je dois séparer les entiers positifs et négatifs d'une liste pour les mettre chacun dans une liste. Mais Je n'ai aucune idée de comment procéder ... Si vous pouviez m'aider svp.

Exemple : [-1,3,-5,6,7,-8]
Nous donneras [-1,-5,-8] et [3,6,7]

Code:

---

1 2 3 4 5

Dissocier([],_,_). Dissocier([X/L],[X/L1],L2):- X<0, dissocier(L,L1,L2). Dissocier([X/L],L1,[X/L2]):- X>0, dissocier(L,L1,L2).

---

Cohérent ?

/ correspond ici | au paipe

Attention, une liste vide donne des listes résultat vides

Code:

---

dissocier([], [], []).

---

Cela parait correct, sauf pour 0 !