bzoj1232

由题意知，最后要保留的边肯定都要被走过

来回一条边所花费的时间=2*边长+安慰边两端的牛所要花的时间和

总时间就等于所保留边来回的时间和+根节点时间；

不难想到做一下最小生成树即可

贪心可知，根一定选在需要安慰时间最小的那个点

type node=record
       x,y,len:longint;
     end;
var a:array[0..100010] of node;
    fa,w:array[0..10010] of longint;
    n,m,ans,i,j,k1,k2:longint;

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

procedure swap(var a,b:node);
  var c:node;
  begin
    c:=a;
    a:=b;
    b:=c;
  end;

procedure sort(l,r:longint);
  var i,j,p,q: longint;
  begin
    i:=l;
    j:=r;
    p:=a[(l+r) shr 1].len;
    repeat
      while (a[i].len<p) do inc(i);
      while (p<a[j].len) do dec(j);
      if not(i>j) then
      begin
        swap(a[i],a[j]);
        inc(i);
        j:=j-1;
      end;
    until i>j;
    if l<j then sort(l,j);
    if i<r then sort(i,r);
  end;

begin
  readln(n,m);
  ans:=2147483647;
  for i:=1 to n do
  begin
    readln(w[i]);
    if w[i]<ans then ans:=w[i];
    fa[i]:=i;
  end;
  for i:=1 to m do
  begin
    readln(a[i].x,a[i].y,a[i].len);
    a[i].len:=a[i].len*2+w[a[i].x]+w[a[i].y];
  end;
  sort(1,m);
  i:=0;
  j:=0;
  while i<n-1 do
  begin
    inc(j);
    k1:=getf(a[j].x);
    k2:=getf(a[j].y);
    if k1<>k2 then
    begin
      inc(i);
      fa[k1]:=k2;
      ans:=ans+a[j].len;
    end;
  end;
  writeln(ans);
end.