部落卫队
Time Limit:10000MS Memory Limit:65536K Total Submit:244 Accepted:166 Case Time Limit:1000MS
Description
原始部落byteland 中的居民们为了争夺有限的资源,经常发生冲突。几乎每个居民都有他的仇敌。部落酋长为了组织一支保卫部落的队伍,希望从部落的居民中选出最多的居民入伍,并保证队伍中任何2个人都不是仇敌。 .编程任务: 给定byteland 部落中居民间的仇敌关系,编程计算组成部落卫队的最佳方案。
Input
第1行有2个正整数n(n<=100)和m,表示byteland部落中有n位居民,居民间有m个仇敌关系。居民编号为1,2,…,n。接下来的m行中,每行有2个正整数u和v,表示居民u与居民v是仇敌。
Output
第1行是部落卫队的顶人数; 第2行是卫队组成xi ,1 ≤ i ≤ n ,xi=0 表示居民i不在卫队中,xi =1表示居民i在卫队中。
Sample Input
7 10 3 1 2 1 0 1 0 0 0 1 1 4 2 4 2 3 2 5 2 6 3 5 3 6 4 5 5 6
Sample Output
3 1 0 1 0 0 0 1
Source
type arr=set of 0..100; var a,f:array[1..100]of boolean; s:array[1..100]of arr; w:arr; n,m,x,y,i,tot,max:longint; procedure try(k:longint;w:arr;tot:longint); var i:longint; begin if (tot>max)then begin max:=tot; a:=f;end; for i:=k+1 to n do if not(i in w) then begin f[i]:=true; try(i,w+s[i],tot+1); f[i]:=false; end; end; begin readln(n,m); w:=[]; fillchar(f,sizeof(f),#0); max:=-maxlongint; for i:=1 to m do begin readln(x,y); s[x]:=s[x]+[y]; end; try(0,w,0); writeln(max); for i:=1 to n do if a[i] then write('1 ') else write('0 '); writeln; end.