--- pl:prolog:pllib:map_colouring [2019/06/27 15:50]
+++ pl:prolog:pllib:map_colouring [2019/06/27 15:50] (aktualna)
@@ Linia 1: / Linia 1: @@
+====== Map colouring ======
+{{tag>map problem_solving}}
+===== Description =====
+A program for colouring maps.
+{{:prolog:pllib:map_colouring1.png|}}
+**Source**:  PrologTutorial	(on-line tutorial
+===== Download =====
+Program source code: {{map_colouring.pl}}
+===== Listing =====
+<code prolog>
+/* prolog  tutorial 2.9 Map coloring redux */
+adjacent(X,Y,Map) :-  member([X,Y],Map) ; member([Y,X],Map).
+find_regions([],R,R).
+find_regions([[X,Y]|S], R,A) :-
+ (member(X,R) ->
+  (member(Y,R) -> find_regions(S,R,A) ; find_regions(S,[Y|R],A)) ;
+   (member(Y,R) -> find_regions(S,[X|R],A) ; find_regions(S,[X,Y|R],A) ) ).
+color(Map,Colors,Coloring) :-
+        find_regions(Map,[],Regions),
+        color_all(Regions,Colors,Coloring),
+        \+ conflict(Map,Coloring).
+color_all([R|Rs],Colors,[[R,C]|A]) :-
+        member(C,Colors),
+        color_all(Rs,Colors,A).
+color_all([],_,[]).
+conflict(Map,Coloring) :-
+        member([R1,C],Coloring),
+        member([R2,C],Coloring),
+        adjacent(R1,R2,Map).
+map1([[1,2],[1,3],[1,4],[1,5],[2,3],[2,4],[3,4],[4,5]] ).
+% ?- color([[1,2],[1,3],[1,4],[1,5],[2,3],[2,4],[3,4],[4,5]],[red,green,blue,yellow],Coloring).
+</code>
+===== Comments =====

pl/prolog/pllib/map_colouring.txt · ostatnio zmienione: 2019/06/27 15:50 (edycja zewnętrzna)

AIwiki

Menu