noip2015 信息传递

double8fun

于 2016-11-03 18:14:50 发布

阅读量283

点赞数 1

CC 4.0 BY-SA版权

分类专栏：历年noip 文章标签： oi pascal 信息学

本文链接：https://blog.youkuaiyun.com/double8fun/article/details/53024063

历年noip 专栏收录该内容

2 篇文章

订阅专栏

本文介绍了一个使用深度优先搜索算法解决特定问题的示例。通过定义数组存储节点信息，并运用布尔数组标记已访问节点，实现对图进行遍历以找到最短路径。该示例代码展示了如何初始化数据结构、读取输入并执行深度优先搜索。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

const maxn=200000;
var fa,son,q:array[0..maxn] of longint;
    vis:array[0..maxn] of boolean;
    l,r,i,n,x,ans:longint;
function min(a,b:longint):longint;
begin
    if a<b then exit(a) else exit(b);
end;
procedure dfs(n,k,st:longint);
begin
    if (n=k) and (st>1) then begin ans:=min(ans,st-1); exit; end; 
    vis[n]:=false;
    dfs(fa[n],k,st+1);
end;
begin
    fillchar(vis,sizeof(vis),true);
    fillchar(son,sizeof(son),0);
    readln(n);
    for i:=1 to n do begin
        read(fa[i]);
        inc(son[fa[i]]);
    end;
    l:=1;r:=1;
    for i:=1 to n do if son[i]=0 then begin
        q[r]:=i;
        inc(r);
    end;
    while l<=r do begin
        x:=q[l];
        vis[x]:=false;
        dec(son[fa[x]]);
        if son[fa[x]]=0 then begin q[r]:=fa[x]; inc(r); end;
        inc(l);
    end;
    ans:=maxlongint;
    for i:=1 to n do if vis[i] then dfs(i,i,1);
    writeln(ans);
end.