比赛 20110730 评测结果 AAAAAAAAAA
题目名称 线段 最终得分 100
用户昵称 echo 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2011-07-30 11:35:25
显示代码纯文本
program line;
var
  t,n,m,i,j,k,l,r,p:longint;
  g:array[1..300,1..300] of longint;
  bool:boolean;
begin
  assign(input,'line.in');
  assign(output,'line.out');
  reset(input);
  rewrite(output);
  readln(t);
  for l:=1 to t do
    begin
      bool:=true;
      readln(n,m);
      for i:=1 to n do
        for j:=1 to n do
          begin
            g[i,j]:=2;
          end;
      for r:=1 to m do
        begin
          readln(i,j,k);
          g[i,j]:=k;
          g[j,i]:=k;
        end;
      for k:=1 to n do
        for i:=1 to n do
          for j:=1 to n do
            if g[i][j]=2 then
            begin
             if (g[i][k]<>2) and (g[k][j]<>2) then g[i][j]:=g[i][k] xor g[k][j];
            end
            else
             if (g[i][k]<>2) and (g[k][j]<>2) then
              if g[i][j]<>g[i][k] xor g[k][j] then bool:=false;
      if bool=false then writeln('No Answer')
                    else writeln(g[1,n]);
    end;
  close(input);
  close(output);
end.