Różnice

Różnice między wybraną wersją a wersją aktualną.

Odnośnik do tego porównania

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)
www.chimeric.de Valid CSS Driven by DokuWiki do yourself a favour and use a real browser - get firefox!! Recent changes RSS feed Valid XHTML 1.0