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
因為每乙個回合會將數遞減，所以我們一開始就可以將遞減大小從大到小排序
所以我們就可以得出動態轉移方程
f[i,j]:=max(f[i-1,j],f[i-1,j-1]+a[i]-b[i]*(j-1))
1<=j<=m
**如下：
var n,m,i,j:longint;
a,b:array[0..2000]of longint;
f:array[0..2000,0..2000]of 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-1
dofor j:=i+1
to n do
if b[i]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.
DP ssl 1653數字遊戲
小w發明了乙個遊戲，他在黑板上寫出了一行數字a1，a2，a3，an，然後給你m個回合的機會，每會回你可以從中選擇乙個數字擦去它，接著剩下來的每個數字ai都要遞減乙個值bi。如此重複m個回合，所有你擦去的數字之和就是你所得的分數。小w和他的好朋友小y玩了這個遊戲，可是他發現，對於每個給出的a和b序列，...
SSL 1028 數字遊戲
description 丁丁最近沉迷於乙個數字遊戲之中。這個遊戲看似簡單，但丁丁在研究了許多天之後卻發覺原來在簡單的規則下想要贏得這個遊戲並不那麼容易。遊戲是這樣的，在你面前有一圈整數 一共n個 你要按順序將其分為m個部分，各部分內的數字相加，相加所得的m個結果對10取模後再相乘，最終得到乙個數k。...
SSL 1028 數字遊戲
description 丁丁最近沉迷於乙個數字遊戲之中。這個遊戲看似簡單，但丁丁在研究了許多天之後卻發覺原來在簡單的規則下想要贏得這個遊戲並不那麼容易。遊戲是這樣的，在你面前有一圈整數 一共n個 你要按順序將其分為m個部分，各部分內的數字相加，相加所得的m個結果對10取模後再相乘，最終得到乙個數k。...