1 color( 赤 ).
2 color( 青 ).
3 color_map(Ibaraki, Tochigi, Gunma, Saitama, Chiba, Tokyo, Kanagawa) :-
4 color(Ibaraki), color(Tochigi), color(Gunma), color(Saitama),
5 color(Chiba), color(Tokyo), color(Kanagawa),
6 Ibaraki \= Tochigi,
7 Ibaraki \= Saitama,
8 Ibaraki \= Chiba,
9 Tochigi \= Gunma,
10 Tochigi \= Saitama,
11 Gunma \= Saitama,
12 Saitama \= Chiba,
13 Saitama \= Tokyo,
14 Chiba \= Tokyo,
15 Tokyo \= Kanagawa.
16
18 (
20 19 ( color_map(I,T,G,S,C,To,K) ->
format(' 塗 り 分 け 可 能~n')
21 ;
22 format(' 塗 り 分 け 不 可~n')
23 )
MSBjb2xvcigg6LWkICkuCjIgY29sb3IoIOmdkiApLgozIGNvbG9yX21hcChJYmFyYWtpLCBUb2NoaWdpLCBHdW5tYSwgU2FpdGFtYSwgQ2hpYmEsIFRva3lvLCBLYW5hZ2F3YSkgOi0KNCBjb2xvcihJYmFyYWtpKSwgY29sb3IoVG9jaGlnaSksIGNvbG9yKEd1bm1hKSwgY29sb3IoU2FpdGFtYSksCjUgY29sb3IoQ2hpYmEpLCBjb2xvcihUb2t5byksIGNvbG9yKEthbmFnYXdhKSwKNiBJYmFyYWtpIFw9IFRvY2hpZ2ksCjcgSWJhcmFraSBcPSBTYWl0YW1hLAo4IEliYXJha2kgXD0gQ2hpYmEsCjkgVG9jaGlnaSBcPSBHdW5tYSwKMTAgVG9jaGlnaSBcPSBTYWl0YW1hLAoxMSBHdW5tYSBcPSBTYWl0YW1hLAoxMiBTYWl0YW1hIFw9IENoaWJhLAoxMyBTYWl0YW1hIFw9IFRva3lvLAoxNCBDaGliYSBcPSBUb2t5bywKMTUgVG9reW8gXD0gS2FuYWdhd2EuCjE2CjE3IDotIGluaXRpYWxpemF0aW9uKAoxOCAoCjIwIDE5ICggY29sb3JfbWFwKEksVCxHLFMsQyxUbyxLKSAtPgpmb3JtYXQoJyDloZcg44KKIOWIhiDjgZEg5Y+vIOiDvX5uJykKMjEgOwoyMiBmb3JtYXQoJyDloZcg44KKIOWIhiDjgZEg5LiNIOWPr35uJykKMjMgKQ==