3470. 【NOIP2013模拟联考8】最短路(path) (Standard IO)

Description

给定一个n个点m条边的有向图，有k个标记点，要求从规定的起点按任意顺序经过所有标记点到达规定的终点，问最短的距离是多少。

 

Input

第一行5个整数n、m、k、s、t，表示点个数、边条数、标记点个数、起点编号、终点编号。

接下来m行每行3个整数x、y、z，表示有一条从x到y的长为z的有向边。

接下来k行每行一个整数表示标记点编号。

 

Output

输出一个整数，表示最短距离，若没有方案可行输出-1。

Solutions

起点和每个标记点各跑一次SPFA，建立一个(k+1)*(k+1)的图，爆搜即可。

代码

type
  arr=record
    x,y,w,next:longint;
  end;
var
  nm,n,m,k,s,t:longint;
  min,ans:int64;
  d:array [0..100001] of int64;
  ls,v,list:array [0..100001] of longint;
  a:array [0..100001] of arr;
  b:array [0..11] of longint;
  bo:array [0..11] of boolean;
  top:array [0..11,0..11] of int64;
procedure init;
var
  i,x:longint;
begin
  readln(n,m,k,s,t);
  for i:=1 to m do
    begin
      readln(a[i].x,a[i].y,a[i].w);
      a[i].next:=ls[a[i].x];
      ls[a[i].x]:=i;
    end;
  for i:=1 to k do
    readln(b[i]);
end;

procedure spfa(x:longint);
var
  i,j,k,h,t:longint;
begin
  for i:=0 to 100001 do
    d[i]:=maxlongint*23333;
  fillchar(v,sizeof(v),0);
  fillchar(list,sizeof(list),0);
  h:=0; t:=1;
  v[x]:=1; list[1]:=x; d[x]:=0;
  repeat
    h:=h+1;
    j:=ls[list[h]];
    while j<>0 do
      begin
        with a[j] do
          begin
            if d[x]+w<d[y] then
              begin
                d[y]:=d[x]+w;
                if v[y]=0 then
                  begin
                    t:=t+1;
                    list[t]:=y;
                    v[y]:=1;
                  end;
              end;
            j:=next;
          end;
      end;
    v[list[h]]:=0;
  until h=t;
end;

procedure search(x:longint);
var
  i:longint;
begin
  if x=k+1 then
    begin
      for i:=1 to k do
        if bo[i] then exit;
      if ans<min then min:=ans;
      exit;
    end;
  for i:=1 to k+1 do
    if (top[x,i]>0) and bo[i] then
      begin
        bo[i]:=false;
        ans:=ans+top[x,i];
        search(i);
        bo[i]:=true;
        ans:=ans-top[x,i];
      end;
end;

procedure main;
var
  i,j:longint;
begin
  min:=maxlongint*23333; ans:=0;
  fillchar(top,sizeof(top),0);
  spfa(s);
  if k=0 then
    if d[t]<>0 then min:=d[t];
  for i:=1 to k do
    top[0,i]:=d[b[i]];
  for i:=1 to k do
    begin
      spfa(b[i]);
      top[i,k+1]:=d[t];
      for j:=1 to k do
        if i<>j then
          top[i,j]:=d[b[j]];
    end;
  fillchar(bo,sizeof(bo),true);
  for i:=1 to k do
    if b[i]=s then bo[i]:=false;
  search(0);
end;

begin
  init;
  main;
  if min=maxlongint*23333 then writeln('-1')
                          else writeln(min);
end.