七天使的通讯

题目描述
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

vart,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.