Discussion :

[adriano12]

Bonjour,
voila j ai un probleme dans un exercice de prolog, j ai passer des heures dessus et je n arrive pas a avancer, merci de m aider

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
% pour charger predicats de liste 
:- use_module(library(lists)). 
link(max, jean, 3). 
link(max, claire, 5). 
link(jean, claire, 8). 
link(jean, zoe, 7). 
link(claire, anne, 2). 
link(claire, guy, 7). 
link(claire, lise, 6). 
link(lise, guy, 3). 
link(anne, guy, 4). 
link(anne, roger, 4). 
link(roger, alex, 6). 
 
symlink(F1, F2, N) :- 
   link(F1, F2, N). 
symlink(F1, F2, N) :- 
   link(F2, F1, N). 
:- dynamic(linklis/1). 
links(Friend, LL) :- asserta(linklis([])), links2(Friend), retract(linklis(LL)). 
links2 (F) :- c est a sa qu il faut que je reponde, on utilisant SYMLINK,

merci
voici un test par exemple
Par exemple ?-links (max, LL). donnerait la liste:
LL = [link (max, claire, 5), link (max, jean, 3)]
MERCI BEAUCOUP.

[Trap D]

Consulte cette page.