POJ 1192

POJ 1192

Noi的题>.<

题目大意:给出一些点，坐标都是整数，如果两个点的距离为1，则说明相邻..（省略繁琐题意），删点后连通……总之就是构建了一棵树，每个节点有一个权值，求这棵树的一颗子树，有权值最大。

解：首先说下自己的二点，没看到树的性质（每两个点有且只有一条路径联通），然后刚刚切完一系列的双连通分量，很激动的用贪心，每次去除掉一个当前权值最小且非割点的的点=。=然后wa掉，检查半天，最后看discuss才知道完全是自己的题意理解错了，况且如果是图我这个是从本质上贪心不能，因为有时不一定去点，还可以有整个枝条不要的情况，每次去一个点贪心是做不到的，正解treedp，fjy出的题那个第三题的更新与这个类似，O（n）即可，不过小心第一次dfs构树的时候可能会爆栈。

研究了一下_gxx的程序，自己又二了，实际上是不用考虑父亲的，因为在父亲的时候就会包含这种情况了，因为在x时，opt{（pre[x] + opt(左子)） + x},而站在pre[x]时，opt{pre[x], 左子， 右子} == opt{opt{pre[x], left}, right}，因此只用求一个拓扑序，然后自下向上更新即可。

const
        maxn=1111;
        maxm=maxn*2;
type
        data=record
          dest, next: longint;
        end;
        po=record
          x, y: longint;
        end;
var
        edge: array[1..maxm]of data;
        f, pre, cost, vect: array[1..maxn]of longint;
        point: array[1..maxn]of po;
        n, m, ans, tot: longint;
procedure add(x, y: longint);
begin
  inc(tot);
  with edge[tot] do begin
    dest := y;
    next := vect[x];
    vect[x] := tot;
  end;
  inc(tot);
  with edge[tot] do begin
    dest := x;
    next := vect[y];
    vect[y] := tot;
  end;
end;

procedure init;
var
        i, j: longint;
begin
  ans := 0; tot := 0;
  fillchar(vect, sizeof(vect), 0);
  readln(n);
  for i := 1 to n do with point[i] do readln(x, y, cost[i]);
  for i := 1 to n-1 do
    for j := i + 1 to n do
      if (abs(point[i].x-point[j].x)+abs(point[i].y-point[j].y)=1) then add(i, j);
end;

procedure dfs(x: longint);
var
        i, tmp: longint;
begin
  i := vect[x];
  tmp := cost[x];
  while i<>0 do
    with edge[i] do begin
      if dest<>pre[x] then begin
        pre[dest] := x;
        dfs(dest);
        if f[dest]>0 then tmp := tmp + f[dest];
      end;
      i := next;
    end;
  f[x] := tmp;
end;

procedure main;
var
        i, u, tmp: longint;
begin
  fillchar(pre, sizeof(pre), 0);
  fillchar(f, sizeof(f), 0);
  dfs(1);
  for u := 1 to n do begin
    tmp := cost[u];
    i := vect[u];
    while i<>0 do
      with edge[i] do begin
        if pre[u]<>dest then begin
          tmp := tmp + f[dest];
        end;
        i := next;
      end;
    if pre[u]<>0 then begin
      tmp := tmp + (f[pre[u]]-f[u]);
    end;
    if tmp > ans then ans := tmp;
  end;
end;

procedure print;
begin
  writeln(ans);
end;

begin
  assign(input,'1.txt'); reset(input);
  init;
  main;
  print;
end.