boji_mapu([Zem|Zem1],Boje):-boji_zemlju(Zem,Boje),boji_mapu(Zem1,Boje).
boji_mapu([],Boje).
boji_zemlju(zem(Ime,Boja,Susedi),Boje):-izvadi(Boja,Boje,Boje1),
                                        podskup(Susedi,Boje1).
izvadi(X,[X|Xs],Xs).
izvadi(X,[Y|Ys],[Y|Zs]):-izvadi(X,Ys,Zs).
podskup([X|Xs],Ys):-clan(X,Ys),podskup(Xs,Ys).
podskup([],_).
clan(X,[X|_]).
clan(X,[_|V]):-clan(X,V).