BZOJ1612: [Usaco2008 Jan]Cow Contest奶牛的比赛

1612: [Usaco2008 Jan]Cow Contest奶牛的比赛

Time Limit: 5 Sec Memory Limit: 64 MB
Submit: 645 Solved: 433
[Submit][Status]

Description

FJ的N(1 <= N <= 100)头奶牛们最近参加了场程序设计竞赛:)。在赛场上，奶牛们按1..N依次编号。每头奶牛的编程能力不尽相同，并且没有哪两头奶牛的水平不相上下，也就是说，奶牛们的编程能力有明确的排名。 整个比赛被分成了若干轮，每一轮是两头指定编号的奶牛的对决。如果编号为A的奶牛的编程能力强于编号为B的奶牛(1 <= A <= N; 1 <= B <= N; A != B) ，那么她们的对决中，编号为A的奶牛总是能胜出。 FJ想知道奶牛们编程能力的具体排名，于是他找来了奶牛们所有 M(1 <= M <= 4,500)轮比赛的结果，希望你能根据这些信息，推断出尽可能多的奶牛的编程能力排名。比赛结果保证不会自相矛盾。

Input

* 第1行: 2个用空格隔开的整数：N 和 M

* 第2..M+1行: 每行为2个用空格隔开的整数A、B，描述了参加某一轮比赛的奶 牛的编号，以及结果（编号为A，即为每行的第一个数的奶牛为 胜者）

Output

* 第1行: 输出1个整数，表示排名可以确定的奶牛的数目

Sample Input

5 5

4 3

4 2

3 2

1 2

2 5

Sample Output

2

输出说明:

编号为2的奶牛输给了编号为1、3、4的奶牛，也就是说她的水平比这3头奶

牛都差。而编号为5的奶牛又输在了她的手下，也就是说，她的水平比编号为5的

奶牛强一些。于是，编号为2的奶牛的排名必然为第4，编号为5的奶牛的水平必

然最差。其他3头奶牛的排名仍无法确定。

HINT

Source

Silver

题解：
开始想到topsort，后来发现脑抽了。。。
我们可以floyed得到所有可以得到的信息，类似于f[i,j]=1 or 2，1 代表 i 胜 j，2代表 i 输 j，
这样我们去统计每个点的情况 如果一个点除了自己本身还存在一个点j，使得 f[i,j]既不为1也不为2，那么就ans--
当然这个floyed是需要改一下的，必须 i 胜 j，j 胜 k，才能 i 胜 k，或者 i 输 j，j 输 k，才能 i 胜 k
我尝试直接用布尔变量表示两人的比赛结果是否已知floyed，但发现 会有 i 胜 k，k 输 j，这样是不能转移的，而布尔变量无法识别到这一点
代码：

var f:array[0..150,0..150] of longint;
i,j,k,n,m,x,y,ans:longint;
procedure init;
begin
readln(n,m);
fillchar(f,sizeof(f),0);
for i:=1 to m do
begin
readln(x,y);
f[x,y]:=2;f[y,x]:=1;
end;
end;
procedure main;
begin
for k:=1 to n do
for i:=1 to n do
for j:=1 to n do
begin
if f[i,k]*f[k,j]=1 then f[i,j]:=1;
if f[i,k]*f[k,j]=4 then f[i,j]:=2;
end;
ans:=n;
for i:=1 to n do
for j:=1 to n do
if (j<>i) and (f[i,j]=0) then begin dec(ans);break;end;
writeln(ans);
end;

begin
assign(input,'input.txt');assign(output,'output.txt');
reset(input);rewrite(output);
init;
main;
close(input);close(output);
end.

View Code