【usaco 2013 feb Bronze】信息传递

最新推荐文章于 2024-01-20 23:03:37 发布

Kesiruto

最新推荐文章于 2024-01-20 23:03:37 发布

阅读量711

点赞数 3

分类专栏： 2016暑假中山文章标签： 1757

本文链接：https://blog.csdn.net/qq_34593871/article/details/51873457

版权

2016暑假中山专栏收录该内容

71 篇文章 0 订阅

订阅专栏

题目：

农夫约翰的奶牛通常是按1到N进行编号的，奶牛们相互之间有一种特殊的信息传输方式。在信息传递的过程中，每只奶牛的信息最多传递到另一只奶牛，对于奶牛i，Fi表示他要传递信息的那只奶牛的编号，这里i和Fi肯定是不同的，如果Fi是0，则表示奶牛i没有要传递信息给其他的奶牛。

不幸的是，奶牛们知道了这种传递信息的方式可能会导致一个死循环。如果一个奶牛传递信息最终会导致一个死循环，那么我们就说这只奶牛在死循环里面。

问题描述：

请帮助奶牛们计算有多少头奶牛没有在死循环里面。

题解：

最后不指向0的牛都死了。

代码：

var
  a,b:array[1..10000] of longint;
  f:array[0..10000] of boolean;
  n,i,j,l:longint;
begin
  assign(input,'relay.in');reset(input);
  assign(output,'relay.out');rewrite(output);
  readln(n);
  for i:=1 to n do
    readln(a[i]);
  fillchar(b,sizeof(b),0);
  for i:=1 to n do
    begin
      j:=i;
      fillchar(f,sizeof(f),false);
      while j>0 do
        begin
          if f[j] then
            begin
              f[0]:=true;
              break;
            end;
          f[j]:=true;
          j:=a[j];
        end;
      if f[0] then
        for j:=1 to n do
          if f[j] then b[j]:=1;
    end;
  for i:=1 to n do
    if b[i]=0 then inc(l);
  writeln(l);
  close(input);close(output);
end.