color(red).
color(green).
color(blue).
color(yellow).

adjacent(鶴見, 神奈川).
adjacent(神奈川, 西).
adjacent(西, 中).
adjacent(中, 南).
adjacent(南, 港南).
adjacent(港南, 磯子).
adjacent(磯子, 金沢).
adjacent(金沢, 栄).
adjacent(栄, 港南).
adjacent(中, 保土ケ谷).
adjacent(保土ケ谷, 西).
adjacent(保土ケ谷, 旭).
adjacent(旭, 瀬谷).
adjacent(瀬谷, 泉).
adjacent(泉, 戸塚).
adjacent(戸塚, 栄).
adjacent(都筑, 港北).
adjacent(都筑, 青葉).
adjacent(都筑, 緑).
adjacent(港北, 神奈川).
adjacent(緑, 青葉).
adjacent(港北, 鶴見).
adjacent(保土ケ谷, 緑).

coloring([]).
coloring([区-色 | 残り]) :-
    color(色),
    coloring(残り),
    forall(member(隣-色2, 残り),
           ((adjacent(区, 隣); adjacent(隣, 区)) -> 色 \= 色2 ; true)).

print_colors([]).
print_colors([区-色 | 残り]) :-
    write(区), write(' -> '), write(色), nl,
    print_colors(残り).

% ★↓↓↓↓↓↓↓↓ ここが実行される唯一のクエリ ★
:- coloring([
        鶴見-A, 神奈川-B, 西-C, 中-D, 南-E, 港南-F,
        磯子-G, 金沢-H, 栄-I, 保土ケ谷-J, 旭-K, 瀬谷-L,
        泉-M, 戸塚-N, 都筑-O, 港北-P, 緑-Q, 青葉-R
    ]),
    write('4色で塗り分け可能'), nl,
    print_colors([
        鶴見-A, 神奈川-B, 西-C, 中-D, 南-E, 港南-F,
        磯子-G, 金沢-H, 栄-I, 保土ケ谷-J, 旭-K, 瀬谷-L,
        泉-M, 戸塚-N, 都筑-O, 港北-P, 緑-Q, 青葉-R
    ]).