生产

【题目描述】

工厂为了生产一种复杂的产品，给各个生产部门制定了详细的生产计划。那么，就经常会有生产部门要把产品送到另一个生产部门作为原料。这是一个注重产品质量的工厂，所以每当有产品要从A部门运到B部门时，都要先从A部门送到质量检验处，检验合格后再从质量检验处运到B部门。

有些部门之间有传送带连接，厂长想知道每次将产品从一个部门运送到另一个部门最少需要多长时间。

【输入格式】

第一行两个整数n、m，n表示部门数量，m表示传送带数量。出于方便，1号部门是质量检验处。

接下来m行，每行三个整数u、v、w，表示有一条从u部门到v部门的传送带，传送过去需要w个单位时间。注意传送带是单向的。

接下来一个整数q，表示有q次运送。

接下来q行，每行两个数a、b，表示这一次要将产品从a部门运送到b部门。

【输出格式】

输出q行，每行一个整数，表示这次运送最少需要的时间。若没有传送方案，输出-1。

【样例输入】

5 5

1 2 3

1 3 5

4 1 7

5 4 1

5 3 1

3

4 2

5 3

2 3

【样例输出】

10

13

-1

【数据规模与约定】

30%的数据，n≤100，m≤500，w=1

60%的数据，n≤100，m≤5000

另20%的数据，q=1

100%的数据，2≤n≤3000，m≤100000，2≤a,b≤n，

q≤100000，1≤u,v≤n，1≤w≤10000

有些部门之间可能有多条传送带。

工厂的员工都非常尽职尽责，他们的认真和热情决定了产品的完美，所以不必考虑产品不合格的情况。

【解题思路】

其实乍一看这个题并不是什么难题，但是（传说中的转折）他只给了24M内存，根本不够用啊！！！这个时候链表大法就上来了（其实我也不知道我做的是不是链表，总之能用），把边用链表储存，然后以一为起点跑两遍单源最短路，求值就好了

program t3;
var u,u1,v,v1,w,w1,head,head1,next,next1,d,d1:array[1..100000] of longint;
    vis,vis1:array[1..100001] of boolean;
    n,q,m:Longint;
procedure init;
var i:longint;
begin
    read(n,m);
    for i:=1 to m do
    begin
        read(u[i],v[i],w[i]);
        next[i]:=head[u[i]];//由边指向边
        head[u[i]]:=i;//由点指向边
        u1[i]:=v[i];//建一张反图
        v1[i]:=u[i];
        next1[i]:=head1[u1[i]];
        head1[u1[i]]:=i;
    end;
end;

procedure dij;//迪杰斯特拉
var i,min,minn,l,j:longint;
begin
    for i:=1 to n do
    begin
        d1[i]:=1000000;
        d[i]:=1000000;
    end;
    d[1]:=0;

    for j:=1 to n do
    begin
        min:=1000000;
        for i:=1 to n do
        if (d[i]<min) and(not vis[i]) then
        begin
            min:=d[i];
            minn:=i;
        end;
        l:=head[minn];
        vis[minn]:=true;
        while l<>0 do
        begin
            if d[v[l]]>min+w[l] then
            d[v[l]]:=min+w[l];
            l:=next[l];
        end;
    end;

    d1[1]:=0;

    for j:=1 to n do
    begin
         min:=1000000;
        for i:=1 to n do
        if (d1[i]<min) and(not vis1[i]) then
        begin
            min:=d1[i];
            minn:=i;
        end;
        l:=head1[minn];
        vis1[minn]:=true;
        while l<>0 do
        begin
            if d1[v1[l]]>min+w[l] then
            d1[v1[l]]:=min+w[l];
            l:=next1[l];
        end;
     end;
end;

procedure print;
var a,b,i:Longint;
begin
    read(q);
    for i:=1 to q do
    begin
        read(a,b);
        if d[b]+d1[a]<1000000 then writeln(d[b]+d1[a]) else writeln('-1');
    end;
end;

begin
    assign(input,'production.in');
  assign(output,'production.out');
  reset(input);
  rewrite(output);
    init;
    dij;
    print;
     close(input);
  close(output);
end.