[SDOI2010]大陆争霸

http://61.187.179.132/JudgeOnline/problem.php?id=1922

http://www.tyvj.cn/Problem_Show.asp?id=1736

描述 Description
	在一个遥远的世界里有两个国家：位于大陆西端的杰森国和位于大陆东端的克里斯国。两个国家的人民分别信仰两个对立的神：杰森国信仰象征黑暗和毁灭的神曾·布拉泽，而克里斯国信仰象征光明和永恒的神斯普林·布拉泽。 幻想历8012年1月，杰森国正式宣布曾·布拉泽是他们唯一信仰的神，同时开始迫害在杰森国的信仰斯普林·布拉泽的克里斯国教徒。 幻想历8012年3月2日，位于杰森国东部小镇神谕镇的克里斯国教徒发动起义。 幻想历8012年3月7日，神谕镇的起义被杰森国大军以残酷手段镇压。 幻想历8012年3月8日，克里斯国对杰森国宣战。由数十万大军组成的克里斯军团开至两国边境，与杰森军团对峙。 幻想历8012年4月，克里斯军团攻破杰森军团防线进入神谕镇，该镇幸存的克里斯国教徒得到解放。 战争随后进入胶着状态，旷日持久。战况惨烈，一时间枪林弹雨，硝烟弥漫，民不聊生。 幻想历8012年5月12日深夜，斯普林·布拉泽降下神谕：“Trust me, earn eternal life.”克里斯军团士气大增。作为克里斯军团的主帅，你决定利用这一机会发动奇袭，一举击败杰森国。具体地说，杰森国有N个城市，由M条单向道路连接。神谕镇是城市1而杰森国的首都是城市N。你只需摧毁位于杰森国首都的曾·布拉泽大神殿，杰森国的信仰，军队还有一切就都会土崩瓦解，灰飞烟灭。 为了尽量减小己方的消耗，你决定使用自爆机器人完成这一任务。唯一的困难是，杰森国的一部分城市有结界保护，不破坏掉结界就无法进入城市。而每个城市的结界都是由分布在其他城市中的一些结界发生器维持的，如果想进入某个城市，你就必须破坏掉维持这个城市结界的所有结界发生器。 现在你有无限多的自爆机器人，一旦进入了某个城市，自爆机器人可以瞬间引爆，破坏一个目标（结界发生器，或是杰森国大神殿），当然机器人本身也会一起被破坏。你需要知道：摧毁杰森国所需的最短时间。

	输入格式 Input Format
		第一行两个正整数N, M。 接下来M行，每行三个正整数ui, vi, wi，表示有一条从城市ui到城市vi的单向道路，自爆机器人通过这条道路需要wi的时间。 之后N行，每行描述一个城市。首先是一个正整数li，维持这个城市结界所使用的结界发生器数目。之后li个1~N之间的城市编号，表示每个结界发生器的位置。如果li = 0，则说明该城市没有结界保护，保证l1 = 0 。

	输出格式 Output Format
		仅包含一个正整数 ，击败杰森国所需的最短时间。

一个最短路

变形的最短路

需要每次访问城市时 把这个城市负责保护的结界都破除掉

数据结构用的是邻接矩阵 用了颇多数组链表的东西 

const maxn=3005;
      maxm=70005;
var start,h,nd,dis:array[0..maxn]of longint;
    next,aim,w:array[0..maxm]of longint;
    l,a:array[0..maxm*10]of longint;
    vis:array[0..maxn]of boolean;

    e,t,n,m:longint;

function max(a,b:longint):longint;begin if a>b then exit(a);exit(b);end;
function min(a,b:longint):longint;begin if a>b then exit(b);exit(a);end;


procedure addd(x,y,z:longint);
begin
  inc(e);next[e]:=start[x];
  aim[e]:=y;
  w[e]:=z;
  start[x]:=e;
end;

procedure init;
var x,y,z,i,j:longint;
begin
  readln(n,m);
  for i:=1 to m do
    begin
      readln(x,y,z);
      addd(x,y,z);
    end;

  for i:=1 to n do
    begin
      read(nd[i]);
      for j:=1 to nd[i] do
        begin
          read(x);
          inc(t);l[t]:=h[x];
          a[t]:=i;
          h[x]:=t;
        end;
    end;
end;

procedure work;
var i,j,k:longint;
begin
  for i:=0 to n do
    dis[i]:=maxlongint;
  dis[1]:=0;
  for i:=1 to n do
    begin
      k:=0;
      for j:=1 to n do
        if (nd[j]=0)and(not vis[j])and(dis[j]<dis[k]) then
          k:=j;
      if k=n then break;
      vis[k]:=true;

      j:=start[k];
      while j<>0 do
        begin
          dis[aim[j]]:=min(dis[aim[j]],dis[k]+w[j]);
          j:=next[j];
        end;

      j:=h[k];
      while j<>0 do
        begin
          dec(nd[a[j]]);
          dis[a[j]]:=max(dis[a[j]],dis[k]);
          j:=l[j];
        end;
    end;
  writeln(dis[n]);
end;

begin
//  assign(input,'in.txt');reset(input);
  init;
  work;
end.