最大权闭合图

/* 最大权闭合图 
肥水不流外人田
闭合子图：在有向图中出边指向本身
建图方法：
在原有的图的基础上，将边的容量设置为inf建图，
点权为正则从源点S到该点建立一条边，
反之则建立该点到汇点的边，边权为点权的绝对值

玄学证明：
假设v1为一个闭合图，v2 = ~v1, S = {{s}&v1}, T = {{t}&v2}
那么 C(v1,v2) = 0, 又有C(s, t) = 0
则 C(S, T) = C(s, v2) + C(v1, t)
然后又因为这个闭合图里头这种建图方式的最小割与闭合图是简单割(只在闭合图这里使用这个概念)
所以 C(s, v2) 就是v2中正点点权和 sv2+
C(v1, t) 则是v1中负点点权和的绝对值 sv1- > 0
C(S, T) = (sv2+) + (sv1-)
sv1 = (sv1+) + (- sv1-)
C(S, T) + sv1 = (sv1+) + (sv2+) = sv+
sv1 = (sv+ - C(S,T))
结论：
最大权闭合图的最大权 = 正值和 - 最小割容量
感性的猜想：
正值和就是源点能够提供的流的最大值sv+,
而这个建图方式优点依然是一个割应该是简单割，
靠近S的集合分为在v1和v2内的，减去简单割在v2+的部分说明是去除了v1集合以外的正数
剪掉了靠近T集合的说明是去掉了v1内流出的量，也就是负数和
*/

const int maxn = 55000 + 10;
const int maxm = (50000 * 3 + 5000) * 2 + 10;
const int inf = 0x3f3f3f3f;
int n, m, S, T;
int h[maxn], tot, e[maxm], f[maxm], ne[maxm];
int q[maxn], d[maxn], cur[maxn];
void add (int u, int v, int c) {
  e[tot] = v, f[tot] = c, ne[tot] = h[u], h[u] = tot ++;
  e[tot] = u, f[tot] = 0, ne[tot] = h[v], h[v] = tot ++;
}
bool bfs() {
  int hh = 0, tt = -1;
  memset(d, -1, sizeof(d));
  q[++tt] = S;
  d[S] = 0;
  cur[S] = h[S];
  while (hh <= tt) {
    int u = q[hh ++];
    for (int i = h[u]; ~i; i = ne[i])
    {
      int v = e[i];
      if (d[v] == -1 && f[i])
      {
        d[v] = d[u] + 1;
        cur[v] = h[v];
        if (v == T) return true;
        q[++tt] = v;
      }
    }
  }
  return false;
}
int dfs(int u, int limit)
{
  if (u == T) return limit;
  int flow = 0;
  for (int i = cur[u]; ~i && flow < limit; i = ne[i])
  {
    cur[u] = i;
    int v = e[i];
    if (d[v] == d[u] + 1 && f[i])
    {
      int t = dfs(v, min(limit - flow, f[i]));
      if (!t) d[v] = -1;
      flow += t;
      f[i] -= t;
      f[i^1] += t;
    }
  }
  return flow;
}
int dinic() {
  int r = 0, flow;
  while (bfs())
    while (flow = dfs(S, inf))
      r += flow;
  return r;
}
int main () {
  scd2(n, m);
  S = 0;
  T = n + m + 1;
  memset(h, -1, sizeof(h));
  for (int i = 1; i <= n; ++i) {
    int val;
    scd(val);
    add(m + i, T, val);
  }
  int sum = 0;
  for (int i = 1; i <= m; ++i) {
    int a, b, c;
    scd3(a, b, c);
    add(S, i, c);
    add(i, m + a, inf);
    add(i, m + b, inf);
    sum += c;
  }
  prdln(sum - dinic());
  return 0;
}