七天使的通讯

题目

n个天使排成一条直线，某些天使之间需要互相联系，他们之间的通讯可以通过黑白两种通道中的一种；所有通道必须在直线同侧（另一侧是地面）；为了保证通讯效率，同种颜色的所有通道之间不能相交。请计算能否建立这种通讯方案。

题意

其实就是给你一些连边，若是能在限制中连成功便yes,否则no

分析

我们可以根据它给出来的连边条件来构造一个图，然后染色判断这个图是否有冲突（是否为二分图），若成功了，便可以。

var
    p:boolean;
    it,i,n,m,j,t:longint;
    b:array[1..1000,0..1000] of longint;
    bz:array[1..5000] of boolean;
    f:array[1..5000] of longint;
    a:array[1..1000,1..2] of longint;
procedure dfs(x:longint);
var i:longint;
begin
    for i:=1 to b[x,0] do
    if not bz[b[x,i]] then begin
           bz[b[x,i]]:=true;
           f[b[x,i]]:=f[x] xor 1;
           dfs(b[x,i]);
    end;
end;
begin
    readln(it);
    for it:=1 to it do begin
        readln(n,m);
        for i:=1 to m do begin
            readln(a[i,1],a[i,2]);
            if a[i,1]>a[i,2] then begin t:=a[i,1];a[i,1]:=a[i,2];a[i,2]:=t;end;
            for j:=1 to i-1 do
            if not((a[i,2]<=a[j,1])or(a[j,2]<=a[i,1])or(a[j,1]<=a[i,1])and(a[j,2]>=a[i,2])or((a[j,1]>=a[i,1])and(a[j,2]<=a[i,2]))) then begin
               inc(b[j,0]);
               b[j,b[j,0]]:=i;
               inc(b[i,0]);
               b[i,b[i,0]]:=j;
            end;
        end;p:=true;
        for i:=1 to m do if not bz[i] then dfs(i);
        for i:=1 to m do
            for j:=1 to b[i,0] do
            if f[i] xor f[b[i,j]]<>1 then begin p:=false;break;end;
        for i:=1 to n do begin f[i]:=0;bz[i]:=false;end;
        for i:=1 to m do b[i,0]:=0; 
        if p then writeln('sane') else writeln('non');
    end;
end.