prolog编程练习——地图着色

给五个地区着色，相邻州的颜色不能一样

 y

1.%事实
2.different(red,green).
3.different(red,blue).
4.different(green,red).
5.different(green,blue).
6.different(blue,red).
7.different(blue,green).

8.%规则
9.coloring(Ala,Mis,Geo,Ten,Flo):-
10.	different(Ten,Ala),
11.	different(Ten,Geo),
12.	different(Ten,Mis),
13.	different(Mis,Ala),
14.	different(Ala,Geo),
15.	different(Flo,Ala),
16.	different(Flo,Geo).

运行结果：