noip模拟题《戏》game

Posted Currier

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了noip模拟题《戏》game相关的知识,希望对你有一定的参考价值。

【问题背景】
      zhx 和他的妹子(们) 做游戏。
【问题描述】
      考虑 N 个人玩一个游戏,任意两个人之间进行一场游戏(共 N*(N-1)/2 场),且每场一定能分出胜负。
      现在, 你需要在其中找到三个人构成“剪刀石头步”局面: 三个人 A,B,C满足A战胜B,B 战胜 C,C 战胜 A。
【输入格式】
      第一行一个正整数 N, 表示参加游戏的人数。
      接下来 N 行, 每行 N 个数 0/1,中间没有空格隔开。第i行第j列数字为1表示 i 在游戏中战胜了 j。 所有对角线元素(即第 i 行第 i 个元素) 为 0,保证数据合法。
【输出格式】
      如果存在三个人构成“剪刀石头布”局面, 输出三个人的编号(从 1 开始)。
      如果不存在这样的三个人, 输出一个数-1。
【样例输入】
5
00100
10000
01001
11101
11000
【样例输出】
1 3 2
【数据规模与约定】
     对于50%的数据,1 ≤n≤ 500。
     对于80%的数据,1 ≤n≤ 1000。
     对于100%的数据,1 ≤n≤ 5000。

     啦啦啦第一次直接n3暴力了
正解:
     由于这是一个竞赛图,每两个点之间有且仅有一条有向边,所以当我们找到一个任意长度的环时,考虑这个环上的前三个点A,B,C,若C与A之间的边由C指向A,则找到一个三元环,否则从A指向C有一条边,在这个环上删去B,加上C->A的边,就得到了一个点数少一个的环。
     下面只需考虑如何找一个任意长度的环:对图进行dfs,以v数组存下每个点的遍历状态,0表示没有访问过,1表示访问过但从这个点延伸出的路径上的点还没有访问完,2表示已经访问过这个点及它延伸出的路径上所有的点。这样当我们在dfs中发现又扩展到一个状态为1的点,就找到了一个环。

 1 program game(input,output);
 2 var
 3   a:array[0..5050,0..5050]of boolean;
 4   f,v,s:array[0..5050]of longint;
 5   c:char;
 6   i,j,n,m,t:longint;
 7 procedure work;
 8 begin
 9    for i:=1 to m>>1 do begin t:=f[i];f[i]:=f[m-i+1];f[m-i+1]:=t; end;
10    j:=1;
11    for i:=2 to m do if f[i]<f[j] then j:=i;
12    for i:=1 to m do begin t:=i+j-1;if t>m then t:=t-m;v[i]:=f[t]; end;
13    for i:=1 to m do f[i]:=v[i];
14    //writeln(m);
15    //for i:=1 to m do writeln(f[i]);
16    for i:=3 to m do
17       if a[f[i],f[1]] then begin write(f[1], ,f[i-1], ,f[i]);close(input);close(output);halt; end;
18 end;
19 procedure dfs(k,d:longint);
20 var
21   i:longint;
22 begin
23    v[k]:=1;
24    s[d]:=k;
25    for i:=1 to n do if a[k,i] then
26       begin
27          if v[i]=2 then continue;
28          if v[i]=1 then
29             begin
30                m:=1;f[1]:=i;j:=d;
31                while s[j]<>i do begin inc(m);f[m]:=s[j];dec(j); end;
32                work;
33             end;
34          dfs(i,d+1);
35       end;
36    v[k]:=2;
37 end;
38 begin
39    assign(input,game.in);assign(output,game.out);reset(input);rewrite(output);
40    readln(n);
41    for i:=1 to n do begin for j:=1 to n do begin read(c);if c=1 then a[i,j]:=true else a[i,j]:=false; end;readln; end;
42    for i:=1 to n do if v[i]=0 then dfs(i,1);
43    write(-1);
44    close(input);close(output);
45 end.

 

以上是关于noip模拟题《戏》game的主要内容,如果未能解决你的问题,请参考以下文章

XJOI NOIP模拟题1

noip模拟赛 写代码

NOIP模拟赛16

NOIp模拟赛binary

神奇的幻方(NOIP2015)(真·纯模拟)

NOIp模拟赛value