pascal大牛请进

Perfect Election

Time Limit: 5000MS		Memory Limit: 65536K
Total Submissions: 781		Accepted: 373

Description

In a country (my memory fails to say which), the candidates {1, 2 ..., N} are running in the parliamentary election. An opinion poll asks the question "For any two candidates of your own choice, which election result would make you happy?". The accepted answers are shown in the table below, where the candidates i and j are not necessarily different, i.e. it may happen that i=j. There are M poll answers, some of which may be similar or identical. The problem is to decide whether there can be an election outcome (It may happen that all candidates fail to be elected, or all are elected, or only a part of them are elected. All these are acceptable election outcomes.) that conforms to all M answers. We say that such an election outcome is perfect. The result of the problem is 1 if a perfect election outcome does exist and 0 otherwise.

Input

Each data set corresponds to an instance of the problem and starts with two integral numbers: 1≤N≤1000 and 1≤M≤1000000. The data set continues with M pairs ±i ±j of signed numbers, 1≤i,j≤N. Each pair encodes a poll answer as follows: 

Accepted answers to the poll question	Encoding
I would be happy if at least one from i and j is elected.	+i +j
I would be happy if at least one from i and j is not elected.	-i -j
I would be happy if i is elected or j is not elected or both events happen.	+i -j
I would be happy if i is not elected or j is elected or both events happen.	-i +j

The input data are separated by white spaces, terminate with an end of file, and are correct.

Output

For each data set the program prints the result of the encoded election problem. The result, 1 or 0, is printed on the standard output from the beginning of a line. There must be no empty lines on output.

Sample Input

3 3  +1 +2  -1 +2  -1 -3 
2 3  -1 +2  -1 -2  +1 -2 
2 4  -1 +2  -1 -2  +1 -2  +1 +2 
2 8  +1 +2  +2 +1  +1 -2  +1 -2  -2 +1  -1 +1  -2 -2  +1 -1

Sample Output

1
1
0
1

Hint

For the first data set the result of the problem is 1; there are several perfect election outcomes, e.g. 1 is not elected, 2 is elected, 3 is not elected. The result for the second data set is justified by the perfect election outcome: 1 is not elected, 2 is not elected. The result for the third data set is 0. According to the answers -1 +2 and -1 -2 the candidate 1 must not be elected, whereas the answers +1 -2 and +1 +2 say that candidate 1 must be elected. There is no perfect election outcome. For the fourth data set notice that there are similar or identical poll answers and that some answers mention a single candidate. The result is 1.

为何我的代码是错的：

var
  a:array [1..2010,1..2010] of longint;
  low,dfn,st,c,belong:array [1..2010] of longint;
  v,f:array [1..2010] of boolean;
  k:array [1..2000,1..2000] of boolean;
  i,j,m,n,x,y,d,t,p,tt,c1,c2:longint;
  fff:boolean;


function min(x,y:longint):longint;
begin
  if x>y then
  exit(y);
  exit(x);
end;


function pp:longint;
begin
  f[st[t]]:=false;
  dec(t);
  exit(st[t+1]);
end;


procedure add(x,y:longint);
begin
  if k[x,y] then
  begin
    k[x,y]:=false;
    inc(c[x]);
    a[x,c[x]]:=y;
  end;
end;


procedure check;
var
  i:longint;
begin
  for i:=1 to n do
  if belong[tt-i]=belong[tt+i] then
  begin
    fff:=false;
    exit;
  end;
end;


procedure tarjan(x:longint);
var
  i,y:longint;
begin
  inc(d);
  low[x]:=d;
  dfn[x]:=d;
  inc(t);
  st[t]:=x;
  f[x]:=true;
  for i:=1 to c[x] do
  begin
    if not v[a[x,i]] then
    begin
      v[a[x,i]]:=true;
      tarjan(a[x,i]);
      low[x]:=min(low[x],low[a[x,i]]);
    end else
    begin
      if f[a[x,i]] then
      low[x]:=min(low[x],dfn[a[x,i]]);
    end;
  end;
  if dfn[x]=low[x] then
  begin
    inc(p);
    belong[x]:=p;
    y:=x-1;
    while x<>y do
    begin
      y:=pp;
      belong[y]:=p;
    end;
  end;
end;


begin


  while not eof do
  begin
    t:=0;
    p:=0;
    d:=0;
    tt:=1005;
    fillchar(belong,sizeof(belong),0);
    fillchar(low,sizeof(low),0);
    fillchar(dfn,sizeof(dfn),0);
    fillchar(st,sizeof(st),0);
    fillchar(f,sizeof(f),false);
    fillchar(v,sizeof(v),false);
    fillchar(a,sizeof(a),0);
    fillchar(c,sizeof(c),0);
    fillchar(k,sizeof(k),true);
    read(n,m);
    for i:=1 to m do
    begin
      read(x,y);
      if x>0 then
      begin
        if y>0 then
        begin
          add(tt-x,tt+y);
          add(tt-y,tt+x);
        end else
        begin
          add(tt-x,tt-abs(y));
          add(tt+abs(y),tt+x);
        end;
      end else
      begin
        if y>0 then
        begin
         add(tt+abs(x),tt+y);
         add(tt-y,tt-abs(x));
        end
        else
        begin
          add(tt+abs(x),tt-abs(y));
          add(tt+abs(y),tt-abs(x));
        end;
      end;
    end;
    for i:=1 to tt*2 do
    if not v[i] then
    begin
      v[i]:=true;
      tarjan(i);
    end;
    fff:=true;
    check;
    if fff then
    writeln('1') else
    writeln('0');
    readln;
  end;
end.