JZOJsenior3425.【NOIP2013模拟】能量获取

Description

“封印大典启动，请出Nescafe魂珠！”随着圣主applepi一声令下，圣剑护法rainbow和魔杖护法freda将Nescafe魂珠放置于封印台上。封印台是一个树形的结构，魂珠放置的位置就是根节点(编号为0)。还有n个其他节点(编号1-n)上放置着封印石，编号为i的封印石需要从魂珠上获取Ei的能量。能量只能沿着树边从魂珠传向封印石，每条边有一个能够传递的能量上限Wi，魂珠的能量是无穷大的。作为封印开始前的准备工作，请你求出最多能满足多少颗封印台的能量需求？

注意：能量可以经过一个节点，不满足它的需求而传向下一个节点。每条边仅能传递一次能量。

Input

第一行一个整数n，表示除根节点之外的其他节点的数量。

接下来n行，第i+1行有三个整数Fi、Ei、Wi，分别表示i号节点的父节点、i号节点上封印石的能量需求、连接节点i与Fi的边最多能传递多少能量。

Output

最多能满足多少颗封印石的能量需求。

Sample Input

4

0 3 2

0 100 100

1 1 1

2 75 80

Sample Output

2

Data Constraint

对于100%的数据，满足1<=n<=1000,0<=Fi<=n,0<=Ei,Wi<=100

思路：
这看到题的时候我内心有草泥马奔腾——这什么东东？网络流？可我不会……
不！
我手推了样例，发现贪心可做
思考一下，若当前需求量最小的点都无法满足，那么这个点子树的所有点都不可能满足
但有可能这个点上面的点可能可以满足的

那么我们就按需求量，把点从小到大排序
若当前点到根的路的最小值≥当前点的需求量，我们就把这条路的值都减去需求量
否则，不操作，然后贪心即可AC此题

代码：

var
        a,b,c,d,father:array[0..1000]of longint;
        n,i,j,x,ans:longint;
procedure qsort(l,r:longint);
var
        i,j,mid:longint;
begin
        i:=l;
        j:=r;
        mid:=c[(l+r)shr 1];
        repeat
                while c[i]<mid do inc(i);
                while c[j]>mid do dec(j);
                if i<=j then
                begin
                        c[0]:=c[i];
                        c[i]:=c[j];
                        c[j]:=c[0];
                        d[0]:=d[i];
                        d[i]:=d[j];
                        d[j]:=d[0];
                        inc(i);
                        dec(j);
                end;
        until i>j;
        if l<j then qsort(l,j);
        if i<r then qsort(i,r);
end;
function min(x,y:longint):longint;
begin
        if x<y then exit(x);
        exit(y);
end;
procedure find(m:longint);
var
        now,minn:longint;
begin
        now:=m;
        minn:=maxlongint;
        while now<>0 do
        begin
                minn:=min(minn,b[now]);
                now:=father[now];
        end;
        if minn>=a[m] then
        begin
                inc(ans);
                now:=m;
                while now<>0 do
                begin
                        dec(b[now],a[m]);
                        now:=father[now];
                end;
        end;
end;
begin
        readln(n);
        for i:=1 to n do
        begin
                readln(x,a[i],b[i]);
                father[i]:=x;
                c[i]:=a[i];
                d[i]:=i;
        end;
        qsort(1,n);
        for i:=1 to n do
                find(d[i]);
        writeln(ans);
end.