117 条题解
-
0
j262492438 LV 3 @ 2008-10-13 20:58:06
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms一次ac的 太感动了
我的思路很麻烦
希望各位大牛写个dp方程 -
0
languixing LV 8 @ 2008-09-26 14:56:29
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms
program palase;
type aa=record
num,m:longint;
c:array[1..1500]of int64;
end;
var tr:array[1..1500]of aa;
p:array[1..1500]of boolean;
f:array[1..1500,0..2]of int64;
i,j,k,m,n,root:longint;
min:longint;
function xiao(i,j:int64):int64;
begin
if i -
0
181818181818 LV 10 @ 2008-09-23 21:41:18
function treedp(x,p:longint):longint;
var s,min,i:longint;
t:boolean;
begin
if f[x,p]>0then exit(f[x,p]);
case p of
1:begin
s:=0;
for i:=1 to son[x,0]do
begin
min:=treedp(son[x,i],1);
o:=treedp(son[x,i],2);
if min>o then min:=o;
o:=treedp(son[x,i],3);
if min>o then min:=o;
s:=s+min;
end;
treedp:=s+a[x];
end;
2:begin
if son[x,0]=0 then
begin
f[x,p]:=1000000;
exit(1000000);
end;
t:=false;
s:=0;
for i:=1 to son[x,0]do
begin
min:=treedp(son[x,i],1);
o:=treedp(son[x,i],2);
if min>o then min:=o else t:=true;
s:=s+min;
end;
if not(t)then
begin
min:=maxlongint;
for i:=1 to son[x,0]do
if min>f[son[x,i],1]-f[son[x,i],2]then
min:=f[son[x,i],1]-f[son[x,i],2];
s:=s+min;
end;
treedp:=s;
end;
3:begin
s:=0;
for i:=1 to son[x,0]do
s:=s+treedp(son[x,i],2);
treedp:=s;
end;
end;
f[x,p]:=treedp;
end;
0打成o郁闷…… -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0msprogram p1144;
var v,wh,wh0,i,j,k,m,n:longint;
a:array[0..1501,-1..1501]of longint;
f,w:array[0..1501]of longint;
s1,s2,s3:array[0..1501]of longint;
function min(a,b:longint):longint;
begin
if a>b then min:=b else min:=a;
end;
procedure work(v:longint);
var i,j:longint;
begin
for i:=1 to a[v][0] do work(a[v][i]);
wh:=0;
for i:=1 to a[v][0] do
begin
wh0:=min(s1[a[v][i]],s2[a[v][i]]);
inc(wh,wh0);
end;
fillchar(m,sizeof(m),15);
if a[v][0]=0 then
begin
s1[v]:=m;
s2[v]:=w[v];
s3[v]:=m;
end;
for i:=1 to a[v][0] do
begin
wh0:=min(s1[a[v][i]],s2[a[v][i]]);
dec(wh,wh0);
inc(wh,s2[a[v][i]]);
if wh -
0
LV 0 @ 2008-08-12 15:53:14
tree-dp(去-笛屁)
j262492438
LV 3
@ 2008-10-13 20:58:06
