color(赤).
color(青).
color(緑).
color_map(Kngw, Trm, Kohk, Midr, Hdg, Nish, Tzk) :-
    color(Kngw),
    color(Trm),
    color(Kohk),
    color(Midr),
    color(Hdg),
    color(Nish),
    color(Tzk),

    Kngw \= Trm,
    Kngw \= Kohk,
    Kngw \= Midr,
    Kngw \= Hdg,
    Kngw \= Nish,

    Trm \= Kohk,
    Kohk \= Tzk,
    Midr \= Tzk,
    Midr \= Hdg,
    Hdg \= Nish.

:- initialization(
    ( color_map(Kngw, Trm, Kohk, Midr, Hdg, Nish, Tzk) ->
      format('塗り分け可能~n')
    ;
      format('塗り分け不可~n')
    )
).