PID172 / 圣诞树（RQNOJ）

RQNOJ 圣诞树

题目描述

圣诞特别礼物挂在一棵圣诞树上，这棵树有n层，每层有一件礼物，每件礼物都有一个价值，有的礼物还有一些连结线，与下层的礼物相连，领取礼物的规则如下：任选一件礼物，它的下面如果有连结线，则可以继续取它连结的礼物，以此类推，直至取到没有连结线的礼物才结束，你如果是第一个去取，怎样取才能获得最大的价值呢？请你编一程序解决这一问题。

输入输出

---

输入格式

输入文件tree.in的第一行只有一个数据n(n<=100),表示有n层礼物，以下有n行数据，分别表示第1-n层礼物的状态，每行至少由一个数据构成，且第一个数据表示该礼物的价值，后面的数据表示它与哪些层的礼物相连，如果每行只有一个数据则说明这层礼物没有与下层礼物相连，每个数的大小均不超过10000。

输出格式

输出文件tree.out也只有一个数，表示获得的取大价值。

---

样例 Sample

样例输入

3
12 2 3
20
30

样例输出

42

分析

该题很显然都已经将阶段已经划分完毕，所以直接动态规划即可，方程
f[i]表示从i到n的最大价值

ans=max(ans,f[i])
f[i]=a[i]+maxn
maxn=max(maxn,f[j])

本人较弱，写了一个最长路程序也过了。。。。
附上动态规划代码。。

代码如下

program tree;var n,sum,i,j:longint;    num,value:array[1..1000] of longint;    f:array[1..10000] of longint;    map:array[1..100,1..100] of boolean;    maxn:longint;    ans:longint;function max(a,b:longint):longint;begin if a>b then exit(a); exit(b);end;begin readln(n); fillchar(map,sizeof(map),false); for i:=1 to n do  begin   sum:=0;   while not eoln do    begin     inc(sum);     read(num[sum]);    end;   readln;   value[i]:=num[1];   for j:=2 to sum do    begin     map[i,num[j]]:=true;    end;  end; f[n]:=value[n]; ans:=f[n]; for i:=n-1 downto 1 do  begin   maxn:=0;   for j:=i+1 to n do    if map[i,j] then    maxn:=max(maxn,f[j]);   f[i]:=value[i]+maxn;   ans:=max(ans,f[i]);  end; write(ans);end.

评测详情

测试点1 Accepted / 0ms / 316kB
测试点2 Accepted / 0ms / 316kB
测试点3 Accepted / 0ms / 316kB
测试点4 Accepted / 0ms / 316kB
测试点5 Accepted / 0ms / 316kB
测试点6 Accepted / 0ms / 316kB
测试点7 Accepted / 0ms / 316kB
测试点8 Accepted / 0ms / 316kB
测试点9 Accepted / 0ms / 316kB
测试点10 Accepted / 5ms / 316kB

困死，差点砸桌子上。。。

---