文章标题

题目描述

C 国有 n 个大城市和 m 条道路，每条道路连接这 n 个城市中的某两个城市。任意两个

城市之间最多只有一条道路直接相连。这 m 条道路中有一部分为单向通行的道路，一部分

为双向通行的道路，双向通行的道路在统计条数时也计为 1 条。

C 国幅员辽阔，各地的资源分布情况各不相同，这就导致了同一种商品在不同城市的价

格不一定相同。但是，同一种商品在同一个城市的买入价和卖出价始终是相同的。

商人阿龙来到 C 国旅游。当他得知同一种商品在不同城市的价格可能会不同这一信息

之后，便决定在旅游的同时，利用商品在不同城市中的差价赚回一点旅费。设 C 国 n 个城

市的标号从 1~ n，阿龙决定从 1 号城市出发，并最终在 n 号城市结束自己的旅行。在旅游的

过程中，任何城市可以重复经过多次，但不要求经过所有 n 个城市。阿龙通过这样的贸易方

式赚取旅费：他会选择一个经过的城市买入他最喜欢的商品――水晶球，并在之后经过的另

一个城市卖出这个水晶球，用赚取的差价当做旅费。由于阿龙主要是来 C 国旅游，他决定

这个贸易只进行最多一次，当然，在赚不到差价的情况下他就无需进行贸易。

假设 C 国有 5 个大城市，城市的编号和道路连接情况如下图，单向箭头表示这条道路

为单向通行，双向箭头表示这条道路为双向通行。

假设 1~n 号城市的水晶球价格分别为 4，3，5，6，1。

阿龙可以选择如下一条线路：1->2->3->5，并在 2 号城市以 3 的价格买入水晶球，在 3

号城市以 5 的价格卖出水晶球，赚取的旅费数为 2。

阿龙也可以选择如下一条线路 1->4->5->4->5，并在第 1 次到达 5 号城市时以 1 的价格

买入水晶球，在第 2 次到达 4 号城市时以 6 的价格卖出水晶球，赚取的旅费数为 5。

现在给出 n 个城市的水晶球价格，m 条道路的信息（每条道路所连接的两个城市的编号

以及该条道路的通行情况）。请你告诉阿龙，他最多能赚取多少旅费。

输入输出格式

输入格式：
第一行包含 2 个正整数 n 和 m，中间用一个空格隔开，分别表示城市的数目和道路的

数目。

第二行 n 个正整数，每两个整数之间用一个空格隔开，按标号顺序分别表示这 n 个城

市的商品价格。

接下来 m 行，每行有 3 个正整数，x，y，z，每两个整数之间用一个空格隔开。如果 z=1，

表示这条道路是城市 x 到城市 y 之间的单向道路；如果 z=2，表示这条道路为城市 x 和城市

y 之间的双向道路。

输出格式：
输出文件 trade.out 共 1 行，包含 1 个整数，表示最多能赚取的旅费。如果没有进行贸易，

则输出 0。

输入输出样例

输入样例#1：
5 5
4 3 5 6 1
1 2 1
1 4 1
2 3 2
3 5 1
4 5 2
输出样例#1：
5
说明

【数据范围】

输入数据保证 1 号城市可以到达 n 号城市。

对于 10%的数据，1≤n≤6。

对于 30%的数据，1≤n≤100。

对于 50%的数据，不存在一条旅游路线，可以从一个城市出发，再回到这个城市。

对于 100%的数据，1≤n≤100000，1≤m≤500000，1≤x，y≤n，1≤z≤2，1≤各城市

水晶球价格≤100。
做法：以最大值和最小值分别做spfa，算差价
代码如下：

const
  maxn=1000000;
type
  arr=record
    x,y,next:longint;
  end;
var
  p,q:array[0..maxn] of arr;
  ls,list,ls1,max,min,a:array[0..maxn] of longint;
  v:array[0..maxn] of boolean;
  n,m:longint;

procedure init;
var
  i,z,k:longint;
begin
  k:=0;
  readln(n,m);
  for i:=1 to n do
    read(a[i]);
  for i:=1 to m do
    begin
      inc(k);
      readln(p[k].x,p[k].y,z);
      p[k].next:=ls[p[k].x];
      ls[p[k].x]:=k;
      q[k].x:=p[k].y;
      q[k].y:=p[k].x;
      q[k].next:=ls1[q[k].x];
      ls1[q[k].x]:=k;
      if z=2 then
        begin
          inc(k);
          p[k].x:=p[k-1].y;
          p[k].y:=p[k-1].x;
          p[k].next:=ls[p[k].x];
          ls[p[k].x]:=k;
          q[k].x:=p[k].y;
          q[k].y:=p[k].x;
          q[k].next:=ls1[q[k].x];
          ls1[q[k].x]:=k;
        end;
    end;
end;

procedure spfa1;
var
  head,tail,t,i:longint;
begin
  head:=0;
  tail:=1;
  for i:=1 to n do
    min[i]:=maxlongint;
  min[1]:=a[1];
  list[1]:=1;
  v[1]:=true;
  while head<tail do
    begin
      inc(head);
      t:=ls[list[head]];
      while t>0 do
        with p[t] do
          begin
            if min[x]<min[y] then
              begin
                min[y]:=min[x];
                if not v[y] then
                  begin
                   v[y]:=true;
                   inc(tail);
                   list[tail]:=y;
                  end;
              end;
            if a[y]<min[y] then
              begin
                min[y]:=a[y];
                if not v[y] then
                  begin
                    v[y]:=true;
                    inc(tail);
                    list[tail]:=y;
                  end;
              end;
            t:=next;
          end;
      v[list[head]]:=false;
    end;
end;

procedure spfa2;
var
  head,tail,t:longint;
begin
  fillchar(v,sizeof(v),false);
  fillchar(list,sizeof(list),0);
  head:=0;
  tail:=1;
  min[n]:=a[n];
  list[1]:=n;
  v[1]:=true;
  while head<tail do
    begin
      inc(head);
      t:=ls1[list[head]];
      while t>0 do
        with q[t] do
          begin
            if max[x]>max[y] then
              begin
                max[y]:=max[x];
                if not v[y] then
                  begin
                   v[y]:=true;
                   inc(tail);
                   list[tail]:=y;
                  end;
              end;
            if a[y]>max[y] then
              begin
                max[y]:=a[y];
                if not v[y] then
                  begin
                    v[y]:=true;
                    inc(tail);
                    list[tail]:=y;
                  end;
              end;
            t:=next;
          end;
      v[list[head]]:=false;
    end;
end;

procedure answer;
var
  i,ans:longint;
begin
  ans:=0;
  for i:=1 to n do
    if max[i]-min[i]>ans then ans:=max[i]-min[i];
  writeln(ans);
end;

begin
  init;
  spfa1;
  spfa2;
  answer;
end.