暴力摩托（并查集）

最新推荐文章于 2025-02-07 22:53:47 发布

ACZSH

最新推荐文章于 2025-02-07 22:53:47 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/u012601817/article/details/13295437

本文介绍了一款暴力摩托车游戏中的特殊关卡攻略。玩家华英雄在完成普通关卡后发现了一个需要调整速度以减小速度差的新挑战。通过使用克鲁斯卡尔算法，玩家可以有效地解决这个问题，实现最小速度差的目标。

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

英雄最喜欢玩暴力摩托，一个通宵之后，总算过了全关！正当他为自己的成绩洋洋得意的时候却发现居然还有一个特别的附加关！华英雄虽然累得眼睛都睁不开了，但是他还是决定再试一试！ 
这一关与以前的关不同，包含有N个站，之间连了M条双向的通路！但每条路都规定了一个Speed值，在这条路上必须以这个速度前进！所以在前进的时候要频繁的调整速度，这对鱼类来说是很痛苦的，所以华英雄决定尽量使调整的幅度小一些，也就是使走过的路的速度最大值与最小值之差最小！ 
可最近华英雄由于沉溺在暴力摩托中，已经荒废了编程技术，所以只有请你来帮忙了！^_^ 

此题将边排序后，克鲁斯卡尔即可，枚举第一条边，所求答案及是最后一条边与第一条边的差，时间复杂度O（nmk）。

var
 father,fa,son,v:array[0..1000] of longint;
 n,m,k,s,t:longint;


 function find(x:longint):longint;
 begin
   if fa[x]=x then exit(x);
   fa[x]:=find(fa[x]);
   exit(fa[x]);
 end;

 procedure qsort(l,r:longint);
 var i,j,t,m:longint;
 begin
   i:=l; j:=r; m:=v[(i+j) div 2];
   repeat
    while v[i]<m do inc(i);
    while v[j]>m do dec(j);
    if i<=j then
    begin
      t:=v[i]; v[i]:=v[j]; v[j]:=t;
      t:=father[i]; father[i]:=father[j]; father[j]:=t;
      t:=son[i]; son[i]:=son[j]; son[j]:=t;
      inc(i); dec(j);
    end;
   until i>j;
   if l<j then qsort(l,j);
   if i<r then qsort(i,r);
 end;

 procedure work;
 var i,j,k,ans,p,q:longint;
 begin
   ans:=maxlongint;
   for i:=1 to m do
   begin
    for j:=1 to n do fa[j]:=j;
    for j:=i to m do
    begin
     p:=find(father[j]);
     q:=find(son[j]);
     if p<>q then
      fa[q]:=p;
     if find(s)=find(t) then break;
    end;
    if fa[s]=fa[t] then
    if ans>v[j]-v[i] then ans:=v[j]-v[i];
   end;
   writeln(ans);
 end;


 procedure init;
 var i,j,p,q:longint;
 begin
   readln(n,m);
   for i:=1 to m do
    readln(father[i],son[i],v[i]);
   qsort(1,m);
   readln(k);
   for i:=1 to k do
   begin
    readln(s,t);
    work;
   end;
 end;

begin
 init;
end.