1004

1004. 【东莞市选2007】格斗俱乐部 (Standard IO)

Time Limits:  1000 ms  Memory Limits:  65536 KB  Detailed Limits  

Goto ProblemSet

Description

　　格斗俱乐部是格斗爱好者的一个组织，在这里，格斗者们能通过与别的成员进行格斗来释放自己的压力与轻松自己的情绪。最近俱乐部举行了一场比赛，该比赛有N位选手参加，他们将围成一个圆圈，每一场比赛圈内任意的两位相邻的选手均可进行相互的格斗，胜利者将留在圈内进入下轮比赛而失败者则直接被送往医院（没有平局）。比赛是残酷的，最后圈内将只剩下一位选手，他将是总冠军。
　　我们做个奇怪的假设，两位选手进行格斗，他们比赛的结果总是确定的。虽然俱乐部的成员们都很喜欢格斗，但是他们仍然很希望能获得总冠军。现在你通过统计已经知道了任意两位选手格斗的结果，你有责任告诉每位选手，如果赛程合适安排的话，他是否可能成为总冠军。

Input

　　数据第一行是一个整数N，(1<=N<=40)，表示比赛的选手数量。接下来给出一个N*N的“0”、“1”矩阵A（行内用空格隔开），第i行第j列为 1表示选手i能战胜选手j，否则选手j能战胜选手i。你可以假定Aij与Aji（i≠j）均是不同的且Aii=0。比赛开始时所有选手按顺时针方向由编号1到编号N站成一个圈，初始时编号1与编号N的选手是相邻的。

Output

　　输出包含N行，每行为一个整数“0”或“1”，“1”表示第i号选手有可能成为冠军，“0”表示不可能。

Sample Input

3

0 1 1

0 0 1

0 0 0

Sample Output

1

0

0

Data Constraint

var
        a,t,i,j,k,i1:longint;
        f:array[0..87,0..47]of boolean;
        v:array[0..87,0..87]of longint;
        p:array[0..87]of longint;
begin
        readln(a);
        for i:=1 to a do
        begin
                for j:=1 to a do
                begin
                        read(v[i,j]);
                end;
                readln;
        end;
        for i:=1 to a do
                p[i]:=i;
        inc(a);
        p[a]:=1;
        for i1:=1 to a-1 do
        begin
                fillchar(f,sizeof(f),true);
                for i:=1 to a-1 do
                        f[i,i+1]:=false;
                for t:=2 to a-1 do
                begin
                        for i:=1 to a-t do
                        begin
                                j:=i+t;
                                for k:=i+1 to j-1 do
                                        if((f[i,k]=false)and
                                        (f[k,j]=false))and
                                        ((v[p[i],p[k]]=1)or
                                        (v[p[j],p[k]]=1))then
                                                f[i,j]:=false;
                        end;
                end;
                if f[1,a]=false then writeln(1) else writeln(0);
                p[a]:=p[1];
                for i:=1 to a-2 do
                        p[i]:=p[i+1];
                p[a-1]:=p[a];
                p[a]:=p[1];
        end;
end.