洛谷_P2384_最短路

题目背景

狗哥做烂了最短路，突然机智的考了Bosh一道，没想到把Bosh考住了...你能帮Bosh解决吗？

他会给你100000000000000000000000000000000000%10金币w

题目描述

给定n个点的带权有向图，求从1到n的路径中边权之积最小的简单路径。

输入输出格式

输入格式：

 

第一行读入两个整数n，m，表示共n个点m条边。 接下来m行，每行三个正整数x，y，z，表示点x到点y有一条边权为z的边。

 

输出格式：

 

输出仅包括一行，记为所求路径的边权之积，由于答案可能很大，因此狗哥仁慈地让你输出它模9987的余数即可。

废话当然是一个数了w

//谢fyszzhouzj指正w

对于20%的数据，n<=10。

对于100%的数据，n<=1000，m<=1000000。边权不超过10000。

 

题解：

如标题所示，最短路，

将判断条件d[x]+w<d[y]改为d[x]*w<d[y]即可。

 

代码

const
  mo=9987;
type
  arr=record
    x,y,w,next:longint;
  end;
var
  n,m,nm:longint;
  a:array [0..2000001] of arr;
  ls,list,v,d:array [0..100001] of longint;
procedure add(x,y,z:longint);
begin
  inc(nm);
  a[nm].x:=x; a[nm].y:=y; a[nm].w:=z;
  a[nm].next:=ls[x]; ls[x]:=nm;
end;

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

procedure spfa;
var
  i,head,tail:longint;
begin
  fillchar(d,sizeof(d),63);
  head:=0; tail:=1;
  list[1]:=1; d[1]:=1; v[1]:=1;
  repeat
    inc(head);
    i:=ls[list[head]];
    while i<>0 do
      with a[i] do
        begin
          if d[x]*w<d[y] then
            begin
              d[y]:=(d[x]*w) mod mo;
              if v[y]=0 then
                begin
                  v[y]:=1;
                  inc(tail);
                  list[tail]:=y;
                end;
            end;
          i:=next;
        end;
    v[list[head]]:=0;
  until head>tail;
end;

begin
  init;
  spfa;
  writeln(d[n]);
end.