Cow Contest奶牛的比赛

最新推荐文章于 2022-08-18 20:22:18 发布

The_Great_Prc

最新推荐文章于 2022-08-18 20:22:18 发布

阅读量486

点赞数 1

分类专栏：逻辑文章标签： Usaco 数学逻辑图论

本文链接：https://blog.csdn.net/The_Great_Prc/article/details/69000831

版权

逻辑专栏收录该内容

1 篇文章 0 订阅

订阅专栏

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

Time Limit: 5 Sec Memory Limit: 64 MB
Submit: 1078 Solved: 726
[ Submit][ Status][ Discuss]

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头奶牛的排名仍无法确定。

这题看上去好像是数学逻辑题，乍一看，感觉是图论，但却不知道该怎么写

看了看标程，恍然大悟

Floyd算法的变种

注释见代码

var
n,m,a,b,i,j,k,ans,sum:longint;
f:array[-1..101,-1..101]of longint; 
begin
        readln(n,m);
        for i:=1 to m do
                begin
                        readln(a,b);
                        f[a,b]:=1;//代表a的排名大于b
                        f[b,a]:=-1;//相反的，b的排名小于a，这条边可有可无，后面会给出第二种写法
                end;
        for k:=1 to n do
                for i:=1 to n do
                        for j:=1 to n do
                                if(i<>j)and(i<>k)and(j<>k)and

					(f[i,k]=-1)and(f[k,j]=-1) then//也可以判断f[i,k]=1 and f[k,i]=1,后面会给出第二种写法
                                        begin
                                                f[i,j]:=-1;
                                                f[j,i]:=1;
                                        end;
        for i:=1 to n do
                begin
                        sum:=0;
                        for j:=1 to n do
                                if f[i,j]=0 then inc(sum);//f[i,j]=0代表不能判断a和b的关系
                        if sum=1 then inc(ans);//sum=1的原因是f[i,i]必然会做1次inc(sum)，所以当其为1时，当前点可以与其他任意一个点确定输赢
                end;
        writeln(ans);
end.

第二种写法

var
n,m,a,b,i,j,k,ans,sum:longint;
f:array[-1..101,-1..101]of longint;
begin
        readln(n,m);
        for i:=1 to m do
                begin
                        readln(a,b);
                        f[a,b]:=1;
                end;
        for k:=1 to n do
                for i:=1 to n do
                        for j:=1 to n do
                                if(i<>j)and(i<>k)and(j<>k)and(f[i,k]=1)and(f[k,j]=1) then
                                        begin
                                                f[i,j]:=1;
                                        end;
        for i:=1 to n do
                begin
                        sum:=0;
                        for j:=1 to n do
                                if (f[i,j]=0)and(f[j,i]=0) then inc(sum);//因为没建反边，所以要相互都判断一下
                        if sum=1 then inc(ans);
                end;
        writeln(ans);
end.

总结：

Floyd不仅可以用来写最短路，还可以用来解决类似 确定a和b是否有（大小）关系的图