JZOJ_1322. 硬币游戏 (Standard IO)

Description

　　FJ的奶牛喜欢玩硬币游戏，所以FJ发明了一个新的硬币游戏。一开始有N（5<=N<=2,000）个硬币堆成一叠，从上往下数第i个硬币有一个整数值C_i（1<=C_i<=100,000）。
　　两个玩家轮流从上倒下取硬币，玩家1先取，可以从上面取1个或2个硬币，下一轮的玩家可以取的硬币数量最少为1个，最多为上一个玩家取的数量的2倍，硬币全部取完比赛结束。
　　已知玩家2绝顶聪明，会采用最优策略，现在请你帮助玩家1，使得玩家1取得的硬币值的和最大。

 

Input

　　第一行输入N
　　第二至N+1行每行输入一个整数C_i

 

Output

　　输出玩家1能获得的最大值。

 

Solution

F_i,j,i表示的是我现在的位置(还剩多少枚硬币),取到第几个,j是对方上一次对方拿走了多少个。

下一次对手就可以取走2*j枚硬币,我们设他要拿走k枚硬币,那么k的取值范围就在1<k<=2∗j。

f_i,j=max(sum_i+1..k−f_k,k−i(1<=k<=2∗j))

f_i,j+1=max(sum_i+1..k−f_k,k−i(1<=k<=2*(j+1)))

J就只有在这个地方发生了改变(手指上方S)

(1<=k<=2∗j) 和 (1<=k<=2*(j+1)) 可以变为 2*j<=k<=2*(j+1)

F_i,j=max(F_i,j−1,Sum_i+1..k−F_k,k−i(2∗(j−1)<k<=2∗j))

F_i,j;=max(F_i,j-1,Sum_i+1..k-F_k,k-i) (2j+1<=k<=2j+2) (Sum为前缀和)

Maxn;=max(Maxn,Sum[k]-Sum[i]-F[k,k-i])

答案即为 (sum[n]+max(num[1]-f[1,1],num[1]+num[2]-f[2,2])) div 2

因为一开始可以选1或者2

复杂度;O(n²) (2算是常数)

代码

var
  n:longint;
  a,sum:array [0..2001] of longint;
  f:array [0..2001,0..2001] of longint;
procedure init;
var
  i:longint;
begin
  readln(n);
  sum[0]:=0;
  for i:=1 to n do
    begin
      readln(a[i]);
      sum[i]:=sum[i-1]+a[i];
    end;
end;

function min(o,p:longint):longint;
begin
  if o<p then exit(o);
  exit(p);
end;

function max(o,p:longint):longint;
begin
  if o>p then exit(o);
  exit(p);
end;

procedure main;
var
  i,j,k,maxx:longint;
begin
  for i:=n-1 downto 1 do
    begin
      maxx:=-maxlongint;
      for j:=1 to i do
        begin
          for k:=min(i+2*j-2,n)+1 to min(i+2*j,n) do
            maxx:=max(maxx,sum[k]-sum[i]-f[k,k-i]);
          f[i,j]:=maxx;
        end;
    end;
  writeln((sum[n]+max(a[1]-f[1,1],a[1]+a[2]-f[2,2])) div 2);
end;

begin
  init;
  if n=1 then writeln(a[1])
         else main;
end.