Submission #8872718

Source Code Expand

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
  N,A,x,y,i,j,out,ans,nowt,nowf,ccc:Longint;
  F,T,gF,gT:Array[1..15]of Longint;
procedure dfs(id,nt,nf:Longint);
var
cnt,i:Longint;
begin
  if id=N+1 then begin
    cnt:=0;
    for i:=1 to N do if((nt>>(i-1))and 1)=1 then inc(cnt);
    if ans<cnt then ans:=cnt;
  end else begin
    if((((nt or nf)>>(id-1))and 1)=0)and(((nf or gF[id])and(nt or gT[id]))=0)then dfs(id+1,nt or gT[id],nf or gF[id])
    else dfs(id+1,nt,nf);
  end;
end;
begin
  read(N);
  for i:=1 to N do begin
    read(A);
    for j:=1 to A do begin
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

var
	N,A,x,y,i,j,out,ans,nowt,nowf,ccc:Longint;
	F,T,gF,gT:Array[1..15]of Longint;
procedure dfs(id,nt,nf:Longint);
var
cnt,i:Longint;
begin
	if id=N+1 then begin
		cnt:=0;
		for i:=1 to N do if((nt>>(i-1))and 1)=1 then inc(cnt);
		if ans<cnt then ans:=cnt;
	end else begin
		if((((nt or nf)>>(id-1))and 1)=0)and(((nf or gF[id])and(nt or gT[id]))=0)then dfs(id+1,nt or gT[id],nf or gF[id])
		else dfs(id+1,nt,nf);
	end;
end;
begin
	read(N);
	for i:=1 to N do begin
		read(A);
		for j:=1 to A do begin
			read(x,y);
			dec(x);
			if y=0 then F[i]:=F[i] or (1<<x)else T[i]:=T[i] or (1<<x);
		end;
	end;
	for i:=1 to N do begin
		nowt:=1<<(i-1);
		nowf:=0;
		for ccc:=1 to N do begin
			for j:=1 to N do begin
				if ((nowt>>(j-1))and 1)=1 then begin
					nowt:=nowt or T[j];
					nowf:=nowf or F[j];
				end;
			end;
		end;
		gF[i]:=nowf;
		gT[i]:=nowt;
	end;
	dfs(1,0,0);
	writeln(ans);
end.

Submission Info

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result