115 条题解
-
0
majia LV 7 @ 2006-11-12 16:43:26
个人认为第11组数据有误 ……603,306……
-
0
-
-1
简单一维DP。。还耗了我两节课。。
忘记去年的思路了。。重新写了一个。。思路简单。。直接给方程了：
f[i]=max{f[k]|s[k+1,i]>m} m表示前i个数划分k逗号的最大值。。
唯一委琐的应该就是打印吧。。反正我的打印很委琐。。
程序如下：
var t:string;
s,m:array[0..80,0..80] of int64;
f,g:array[1..80] of int64;
i,j,k,l:longint; max:int64;
procedure print(n:longint);
begin
if n=0 then exit;
print(g[n]);
if nl then write(copy(t,k+1,n-k)+',') else writeln(copy(t,k+1,n-k));
k:=n;
end;
begin
readln(t);
l:=length(t);
for i:=1 to l do
for j:=i to l do
val(copy(t,i,j-i+1),s);
fillchar(f,sizeof(f),0);
for i:=1 to l do m:=s[1,i];
for i:=1 to l do
begin
max:=-1;
for k:=0 to i-1 do
begin
if (f[k]>max)and(s[k+1,i]>m[k,f[k]]) then
begin
f[i]:=f[k]+1;
m:=s[k+1,i];
g[i]:=k;
end else
if (f[k]=max)and(s[k+1,i]=m[k,f[k]]) then
begin
m:=s[k+1,i];
g[i]:=k;
end;
end;
end;
k:=0;
print(l);
end. -
-2
hj363059129 LV 9 @ 2009-10-27 19:41:26
编译通过...
├ 测试数据 01：答案正确... 243ms
├ 测试数据 02：答案正确... 196ms
├ 测试数据 03：答案正确... 181ms
├ 测试数据 04：答案正确... 212ms
├ 测试数据 05：答案正确... 181ms
├ 测试数据 06：答案正确... 181ms
├ 测试数据 07：答案正确... 196ms
├ 测试数据 08：答案正确... 212ms
├ 测试数据 09：答案正确... 212ms
├ 测试数据 10：答案正确... 196ms
├ 测试数据 11：答案正确... 212ms
├ 测试数据 12：答案正确... 212ms
├ 测试数据 13：答案正确... 181ms
├ 测试数据 14：答案正确... 196ms
├ 测试数据 15：答案正确... 196ms
├ 测试数据 16：答案正确... 181ms
├ 测试数据 17：答案正确... 212ms
├ 测试数据 18：答案正确... 212ms
├ 测试数据 19：答案正确... 181ms
├ 测试数据 20：答案正确... 228ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：4021ms丑死了~~
majia
LV 7
@ 2006-11-12 16:43:26
