Blame view

text/presentation_01/00base/color.lp 327 Bytes
3e0f9b8a   Francisco Coelho   back to work?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
node(1..6).

edge(1,2). edge(2,4). edge(3,1).
edge(4,1). edge(5,3). edge(6,2).
edge(1,3). edge(2,5). edge(3,4).
edge(4,2). edge(5,4). edge(6,3).
edge(1,4). edge(2,6). edge(3,5).
edge(5,6). edge(6,5).

color(r). color(b). color(g).

1 { color(X,C) : color(C) } 1 :- node(X).
:- edge(X,Y), color(X,C), color(Y,C).

#show color/2.