伊吹萃香 (Standard IO)

Description

　　在幻想乡，伊吹萃香是能够控制物体密度的鬼王。因为能够控制密度，所以萃香能够制造白洞和黑洞，并可以随时改变它们。某一天萃香闲着无聊，在妖怪之山上设置了一些白洞或黑洞，由于引力的影响，给妖怪们带来了很大的麻烦。于是他们决定找出一条消耗体力最少的路，来方便进出。已知妖怪之山上有N个路口(编号1..N)，每个路口都被萃香设置了一定质量白洞或者黑洞。原本在各个路口之间有M条单向路，走过每一条路需要消耗一定量的体力以及1个单位的时间。由于白洞和黑洞的存在，走过每条路需要消耗的体力也就产生了变化，假设一条道路两端路口黑白洞的质量差为delta：
　　1. 从有白洞的路口走向有黑洞的路口，消耗的体力值减少delta，若该条路径消耗的体力值变为负数的话，取为0。
　　2. 从有黑洞的路口走向有白洞的路口，消耗的体力值增加delta。
　　3. 如果路口两端均为白洞或黑洞，消耗的体力值无变化。
　　由于光是放置黑洞白洞不足以体现萃香的强大，所以她决定每过1个单位时间，就把所有路口的白洞改成黑洞，黑洞改成白洞。当然在走的过程中你可以选择在一个路口上停留1个单位的时间，如果当前路口为白洞，则不消耗体力，否则消耗s[i]的体力。现在请你计算从路口1走到路口N最小的体力消耗。保证一定存在道路从路口1到路口N。

Input

　　第1行：2个正整数N, M
　　第2行：N个整数，第i个数为0表示第i个路口开始时为白洞，1表示黑洞
　　第3行：N个整数，第i个数表示第i个路口设置的白洞或黑洞的质量w[i]
　　第4行：N个整数，第i个数表示在第i个路口停留消耗的体力s[i]
　　第5..M+4行：每行3个整数，u, v, k，表示在没有影响的情况下，从路口u走到路口v需要消耗k的体力。

Output

　　第1行：1个整数，表示消耗的最小体力

题解
判断一下时间的奇偶性，然后SPFA。（说实在，我表达能力不好，说了也不懂）
详解见http://blog.csdn.net/a_loud_name/article/details/52206005

代码

var
  n,m,c:longint;
  a:array[0..30001,1..3] of longint;
  next,ls:array[0..30001] of longint;
  w,s,p:array[0..5001] of longint;
  d:array[0..5001,1..2] of longint;
  q:array[0..100001,1..3] of longint;
  vi:array[0..5001,1..2] of boolean;

procedure init;
var
  i:longint;
begin
  readln(n,m);
  for i:=1 to n do
    read(p[i]);
  for i:=1 to n do
    read(w[i]);
  for i:=1 to n do
    read(s[i]);
  for i:=1 to m do
    begin
      readln(a[i,1],a[i,2],a[i,3]);
      next[i]:=ls[a[i,1]];
      ls[a[i,1]]:=i;
    end;
  fillchar(d,sizeof(d),127);
  d[1,1]:=0;
end;

procedure spfa;
var
  l1,r1,l2,r2,t1,v,go,t2,xx,y:longint;
begin
  l1:=1; r1:=1; l2:=1; r2:=1;
  q[1,1]:=1; q[1,2]:=1;
  while (l1<=r1) do
    begin
      xx:=q[l2,1]; t1:=q[l2,2]; vi[xx,t1]:=false;
      t2:=t1+1; if t2>2 then t2:=t2-2;
      go:=ls[xx];
      while go<>0 do
        begin
          y:=a[go,2];
          v:=abs(w[xx]-w[y]);
          if p[xx]=p[y] then v:=0 else
            begin
              if (t1=1) and (p[xx]=0) then v:=-v;
              if (t1=2) and (p[xx]=1) then v:=-v;
            end;
          v:=v+a[go,3];
          if v<0 then v:=0;
          if d[xx,t1]+v<d[y,t2] then
            begin
              d[y,t2]:=d[xx,t1]+v;
              if not vi[y,t2] then
                begin
                  vi[y,t2]:=true;
                  inc(r2); inc(r1);
                  if r2>100000 then r2:=1;
                  q[r2,1]:=y; q[r2,2]:=t2;
                end;
            end;
          go:=next[go];
        end;
      v:=0;
      if ((t1=1) and (p[xx]=1)) or ((t1=2) and (p[xx]=0)) then v:=s[xx];
      if d[xx,t1]+v<d[xx,t2] then
        begin
          d[xx,t2]:=d[xx,t1]+v;
          if not vi[xx,t2] then
            begin
              vi[xx,t2]:=true;
              inc(r2); inc(r1);
              if r2>100000 then r2:=1;
              q[r2,1]:=xx; q[r2,2]:=t2;
            end;
        end;
      inc(l2); inc(l1);
      if l2>100000 then l2:=1;
    end;
  if d[n,1]<d[n,2] then write(d[n,1])
                   else write(d[n,2]);
end;

begin
   init;
   spfa;
end.