vijos p1347（最大乘积（整数划分？））（25—100分）

跟数的划分有些类似，递归+记忆化搜索，

做过数的划分的人做这道题目应该不是很难。

http://www.cnblogs.com/zyxx233/archive/2012/12/08/2809187.html 这是数的划分题解

同样的，我还是以haha来作为函数.....（个人癖好）

状态：haha(s,t,k).

意思是从s到t的数段中加入k 个乘号所能得到的最大值。

所以 ans:=haha(1,n,k).

状态的转移：

for i:=1 to t-k-s+1 do

begin

val(copy(st,s,i),m);

if ha[s+i,t,k-1]<>0 then

haha:=max(haha,m*ha[s+i,t,k-1])

else haha:=max(haha,m*haha(s+i,t,k-1));

end;

当k=0时 haha即为该数段的值。

优化：同数的划分，递归的缺点就是有很多重复的计算，所以我们可以另开一个三维数组来记录每一次函数的值，如果再需计算这个函数，我们先检查这个函数是否已经在数组里记录过了，如

果已经记录，直接调用数组，否则再计算函数。

 1 program p1347; uses math;
 2 var
 3         i,j,k,l,m,n,ans:longint;
 4         st:string;
 5         ha:array[0..60,0..60,0..6]of int64;
 6 function haha(s,t,k:longint):int64;
 7 var
 8         m,n:int64;
 9         i,j:longint;
10 begin
11         haha:=0;
12         if k<=0 then
13                 begin
14                 val(copy(st,s,t-s+1),m);
15                 haha:=m;
16                 end
17         //else if k<0 then exit(0)
18         else if k>0 then
19         for i:=1 to t-k-s+1 do
20                 begin
21                 val(copy(st,s,i),m);
22                 if ha[s+i,t,k-1]<>0 then
23                 haha:=max(haha,m*ha[s+i,t,k-1])
24                 else haha:=max(haha,m*haha(s+i,t,k-1));
25                 end;
26         ha[s,t,k]:=haha;
27 end;
28 begin
29         assign(input,'p1347.in');
30         reset(input);
31         readln(n,k);
32         readln(st);
33         ans:=haha(1,n,k);
34         write(ans);
35         close(input);
36 end.              

今天的题解终于写完了！