(ssl1007)P1018 2000年分区联赛普级组之三 乘积最大

2000年分区联赛普级组之三 乘积最大

Time Limit:1000MS  Memory Limit:65536K
Total Submit:222 Accepted:146

Description

　　今年是国际数学联盟确定的“2000——世界数学年”，又恰逢我国著名数学家华罗庚先生诞辰90周年。在华罗庚先生的家乡江苏金坛，组织了一场别开生面的数学智力竞赛的活动，你的一个好朋友XZ也有幸得以参加。活动中，主持人给所有参加活动的选手出了这样一道题目： 

　　设有一个长度为N的数字串，要求选手使用K个乘号将它分成K+1个部分，找出一种分法，使得这K+1个部分的乘积能够为最大。 

　　同时，为了帮助选手能够正确理解题意，主持人还举了如下的一个例子： 

　　有一个数字串：312， 当N=3，K=1时会有以下两种分法： 

　　1) 3*12=36 
　　2) 31*2=62 

　　这时，符合题目要求的结果是：31*2=62 

　　现在，请你帮助你的好朋友XZ设计一个程序，求得正确的答案。 

Input

　　程序的输入共有两行： 
　　第一行共有2个自然数N，K（6≤N≤40，1≤K≤6） 
　　第二行是一个长度为N的数字串。 

Output

　　相对于输入，应输出所求得的最大乘积（一个自然数）。

Sample Input

　　4  2
　　1231

Sample Output

　　62

Source

elba

var
 a,f:array[0..40,0..40]of qword;//a[i,j]为从第i位到第j位所组成的数,f[i,j]为在前i位数中插入k个乘号
 n,m,i,j,k:longint;
 s,ss:string;
function max(a,b:longint):longint;
begin
 if a>b then exit(a);
 exit(b);
end;
begin
 readln(n,m);
 read(s);
 for i:=1 to n do
  for j:=1 to n do
   begin
    ss:=copy(s,i,j-i+1);
    val(ss,a[i,j]);//计算它每一子串的值
   end;
 for i:=1 to n do f[i,0]:=a[1,i];//插入0个乘号就是它自己咯
 for i:=1 to m do//m个乘号
  for j:=i+1 to n do//插入在不同的数前面
   for k:=i to j do
    f[j,i]:=max(f[j,i],f[k,i-1]*a[k+1,j]);
 writeln(f[n,m]);
end.