3049[Usaco2010 Hol]cowpol 奶牛政坛.docVIP

[Usaco2010 Hol]cowpol 奶牛政坛 Time Limit:10000MS? Memory Limit:65536KTotal Submit:16 Accepted:9 Case Time Limit:1000MS Description 农夫约翰的奶牛住在N (2 = N = 200,000)片不同的草地上，标号为1到N。恰好有N-1条单位长度的双向道路，用各种各样的方法连接这些草地。而且从每片草地出发都可以抵达其他所有草地。也就是说，这些草地和道路构成了一种叫做树的图。输入包含一个详细的草地的集合，详细说明了每个草地的父节点P_i (0 = P_i = N)。根节点的P_i == 0, 表示它没有父节点。因为奶牛建立了1到K一共K (1 = K = N/2)个政党。每只奶牛都要加入某一个政党，其中， 第i只奶牛属于第A_i (1 = A_i = K)个政党。而且每个政党至少有两只奶牛。 这些政党互相吵闹争。每个政党都想知道自己的“范围”有多大。其中，定义一个政党的范围是这个政党离得最远的两只奶牛（沿着双向道路行走）的距离。 比如说，记为政党1包含奶牛1，3和6，政党2包含奶牛2，4和5。这些草地的连接方式如下图所 示（政党1由-n-表示）： 政党1最大的两只奶牛的距离是3（也就是奶牛3和奶牛6的距离）。政党2最大的两只奶牛的距离是2（也就是奶牛2和4，4和5，还有5和2之间的距离）。 帮助奶牛们求出每个政党的范围。 Input * 第一行: 两个由空格隔开的整数: N 和 K * 第2到第N+1行: 第i+1行包含两个由空格隔开的整数: A_i和P_i Output * 第1到第K行: 第i行包含一个单独的整数，表示第i个政党的范围。 Sample Input 6 2 1 3 2 1 1 0 2 1 2 1 1 5 Sample Output 3 2 Source Gold LCA问题。???maxi，之后再在每个政党中找出一个距maxi[该政党]最远的点，最后再更新答案即可。 程序1：（rmq 2024MS） var i,j,n,m,s,x,root,l:longint; q,d:array[0..400000] of longint; e:array[0..200000] of boolean; a,b,c,fa:array[0..200000] of longint; st,ans,maxi:array[0..100000] of longint; mn:array[0..400000,0..20] of longint; p:array[1..400000,1..2] of longint; procedure dfs(v,deps:longint); var i:longint; begin inc(s); q[s]:=v; d[s]:=deps; if c[v]=0 then c[v]:=s; i:=b[v]; while i0 do begin if p[i,2]fa[v] then begin dfs(p[i,2],deps+1); inc(s); q[s]:=v; d[s]:=deps; end; i:=p[i,1]; end; end; procedure rmq1(n:longint); var i,j:longint; begin for i:=1 to n do mn[i,0]:=i; for i:=1 to trunc(ln(n)/ln(2)) do for j:=1 to n-(1i)+1 do if d[mn[j,i-1]]d[mn[j+(1(i-1)),i-1]] then mn[j,i]:=mn[j,i-1] else mn[j,i]:=mn[j+(1(i-1)),i-1]; end; function dis(l,r:longint):longint; var y,z:longint; begin l:=c[l]; r:=c[r]; if lr then begin l:=l+r; r:=l-r; l:=l-r; end; z:=trunc(ln(r-l+1)/ln(2)); if d[mn[l,z]]d[mn[r-(1z)+1,z]] then y:=mn[l,z] else y:=mn[r-(1z)+1,z]; exit(d[l]+d[r]-2*d[y]); end; begin readln(n,m); for i:=1 to