home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / b / binprolog / !BinPro330 / progs / lmap < prev    next >
Encoding:
Text File  |  1995-02-05  |  813 b   |  40 lines
  1. go:- go(Xs),write(Xs),nl.
  2.  
  3.     color_map([]).
  4.     color_map([R|Rs]) :-
  5.           color(red)-:
  6.           color(yellow)-:
  7.           color(blue)-:
  8.         color(white)-:
  9.         color_region(R),
  10.         color_map(Rs).
  11.  
  12.         color_region(region(Color,Neighbors)):-
  13.        color(Color),
  14.        color_neighbors(Neighbors).
  15.  
  16.   
  17.         color_neighbors([]).
  18.         color_neighbors([X|Xs]) :- 
  19.         color(X), 
  20.         color(X)-:color_neighbors(Xs).
  21.  
  22.  
  23. go([france=F,belgium=B,holland=H,germany=G,luxembourg=L,
  24.     italy=I,switzerland=S,austria=A]):-
  25.     Rs=
  26.       [
  27.             region(F,[I,S,B,G,L]),
  28.         region(B,[F,H,L,G]),
  29.         region(H,[B,G]),
  30.         region(G,[F,A,S,H,B,L]),
  31.         region(L,[F,B,G]),
  32.         region(I,[F,A,S]),
  33.         region(S,[F,I,A,G]),
  34.         region(A,[I,S,G])
  35.           ],
  36.     color_map(Rs).
  37.   
  38.  
  39. % Linear logic version of map coloring prog. 14.4 from Sterling & Shapiro
  40.