数字游戏

数字游戏
Time Limit:10000MS Memory Limit:65536K
Total Submit:256 Accepted:72
Case Time Limit:1000MS

Description
　　小W发明了一个游戏，他在黑板上写出了一行数字a1，a2，a3，……，an，然后给你M个回合的机会，每会回你可以从中选择一个数字擦去它，接着剩下来的每个数字ai都要递减一个值bi。如此重复m个回合，所有你擦去的数字之和就是你所得的分数。
　　小W和他的好朋友小Y玩了这个游戏，可是他发现，对于每个给出的a和b序列，小Y的得分总比他高，所以他就很不服气。于是他想让你帮他算算，对于每个a和b序列，可以得到的最大得分是多少。

Input
　　输入文件的第一行是一个整数n（1<=n<=2000），表示数字个数；第二行一个整数m（1<=m<=n），表示回合数，接下来一行有n个不超过10000的正整数，a1，a2，a3，……，an表示原始序列，最后一行有n个不超过500的正整数，b1，b2，b3，……，bn，表示每回合每个数字递减的值。

Output
　　输出文件只有一个整数，表示最大的可能得分

Sample Input
3
3
10 20 30
4 5 6

Sample Output
47

分析：
擦走的数字是有顺序的。如果可以规定一个序，删除的顺序必需和这个序相对应，就可以应用动态规划了。
假如a[i]在a[j]前删除，而b[i]小于b[j]的话，那么我们可以交换这两个数的删除顺序而使得总和更大。
所以，第一步就是对数按b[i]从大到小排序。排序后，删除的顺序就是从左到右的。
设F[i,j]表示从前i个删除j个数的最大分值：
F[i,j]=max{F[i-1,j],F[i-1,j-1]+a[i]-b[i]*(j-1)}

---

var
  a,b:array[0..2000] of longint;
  f:array[0..2000,0..2000] of longint;
  i,j,n,m:longint;
function max(a,b:longint):longint;
begin
  if a>b then exit(a)
    else exit(b);
end;
begin
  readln(n);
  readln(m);
  for i:=1 to n do
    read(a[i]);
  for i:=1 to n do
    read(b[i]);
  for i:=1 to n do
    for j:=i+1 to n do
      if b[i]<b[j] then
      begin
        a[0]:=a[i]; a[i]:=a[j]; a[j]:=a[0];
        b[0]:=b[i]; b[i]:=b[j]; b[j]:=b[0];
      end;
  fillchar(f,sizeof(f),200);
  for i:=1 to n do
  begin
    f[i-1,0]:=0;
    for j:=1 to m do
      f[i,j]:=max(f[i-1,j],f[i-1,j-1]+a[i]-b[i]*(j-1));
  end;
  writeln(f[n,m]);
end.