七天使的通讯

题目描述
n个天使排成一条直线，某些天使之间需要互相联系，他们之间的通讯可以通过黑白两种通道中的一种；所有通道必须在直线同侧（另一侧是地面）；为了保证通讯效率，同种颜色的所有通道之间不能相交。请计算能否建立这种通讯方案。
输入
第一行一个数T，表示接下来有T个询问。
对于每个询问：第一行两个数n，m，分别表示有n个天使、需要建立通讯线路的天使有m对；接下来有m行，每行两个数a、b，表示a、b两个天使需要通讯。
输出
对于每个询问，输出一行“sane”表示有可行方案、“non”表示无解

样例输入
1
7 5
1 3
2 7
3 4
7 4
6 5
样例输出
sane
提示
【样例解释】

样例中共有一个询问。
在(1,3)、(4,7)、(5,6)之间连黑色通道，在(2,7)、(3,4)之间连白色通道，每条通道都成功建立，且同种颜色的通道没有相交，所以输出sane。

【数据规模和约定】
对于 20%的数据，1<=n<=50，1<=m<=15
对于 50%的数据，1<=n<=1000，1<=m<=300
对于 100%的数据，1<=n<=5000，1<=m<=1000，1<=T<=10，1<=a<=n，1<=b<=n
数据保证每对(a,b)不重复，且a不等于b
【提示】
当两条线路有一对相同的端点时，这两条线路不相交。
也就是说，对于线路(a,b)和线路(c,d)（a

var
t,n,m,i,j,x,head,tail,u:longint;
d,color,a,b:array[0..10001] of longint;
flag:array[0..10011] of boolean;
f:boolean;
begin
  readln(t);
  while t>0 do
  begin
    t:=t-1;
    readln(n,m);
    for i:=1 to m do
    begin
      flag[i]:=false;
      readln(a[i],b[i]);
      if a[i]>b[i] then
      begin
        x:=a[i];
        a[i]:=b[i];
        b[i]:=x;
      end;
    end;
    f:=true;
    for i:=1 to m do
    begin
      if f=false then break;
      if flag[i]=false then
      begin
        head:=0;
        tail:=1;
        d[1]:=i;
        color[i]:=1;
        while head<>tail do
        begin
          if f=false then break;
          head:=head+1;
          u:=d[head];
          flag[u]:=true;
          for j:=1 to m do
            if ((a[j]<a[u])and(a[u]<b[j])and(b[j]<b[u]))or((a[u]<a[j])and(a[j]<b[u])and(b[u]<b[j])) then
              if flag[j] then if color[j]=color[u] then begin writeln('non'); f:=false; break; end
                                                   else
                         else begin tail:=tail+1; color[j]:=color[u] mod 2+1; d[tail]:=j; flag[j]:=true; end;
          if f=false then break;
        end;
      end;
    end;
    if f then writeln('sane');
  end;
end.