2018-04-08 20:28:04 +02:00
|
|
|
#external color(1).
|
|
|
|
#external edge(2).
|
|
|
|
#external vertex(1).
|
|
|
|
#show color/2.
|
2017-06-12 02:43:19 +02:00
|
|
|
|
2018-04-11 21:34:33 +02:00
|
|
|
{color(V, C)} :- vertex(V), color(C).
|
2018-04-08 20:28:04 +02:00
|
|
|
covered(V) :- color(V, _).
|
|
|
|
:- vertex(V), not covered(V).
|
2018-04-11 21:34:33 +02:00
|
|
|
:- color(V1, C), color(V2, C), edge(V1, V2).
|
|
|
|
:- color(V, C1), color(V, C2), C1 != C2.
|