取数游戏_纪中1308_dp

Description

　　Alice想让Bob陪他去看《唐山大地震》，但由于Bob是个很感性的人，怕流泪不想去，但又不好意思以这个作为拒绝的理由，便提出玩一个游戏。
　　N个正整数围成一圈，规则如下：
　　•两个玩家轮流取数；
　　•最开始先手的玩家可以取任意一个数x；
　　•从第二步开始当前玩家只能取x（上一玩家刚刚取的数）左右两边相邻的数；
　　•直到取完所有的数，游戏结束；
　　•取得较多奇数的玩家获胜。
　　Bob为了显示大度，让Alice先取，但他忘了自己和Alice都是绝顶聪明之人，现在Alice请你帮他计算第一步有多少种取法使得最终获得胜利。

Input

　　第一行包含一个整数N(1<=N<=100)，表示数的个数。第二行包含N个正整数，每个数都在1到1000之间，任意两个数互不相同。

Output

　　输出Alice第一步有多少种取法。

分析

当我第一眼看到这个伪装成博弈的问题时我是欲哭无泪的/(ㄒoㄒ)/~~

但事实上这就是一个dp

我们从每一个点开始枚举Alice的第一次选择，把环打破变成数列，问题就转变成了从两边取数，当前轮最多能取多少奇数

sum[i][j]表示区间[i][j]的奇数个数，f[i][j]表示这个人能取奇数的最大数量。为了方便，我们规定f[1][n]状态只能从f[2][n]转移且一定表示Alice能取奇数的数量

$$f[i][j]=sum[i][j]-\min\left(f[i+1][j],f[i][j-1\right)$$

code

var
  n:longint;
  f,g:array[0..100,0..100]of longint;
  a,sum:array[0..100]of longint;
function min(x,y:Longint):longint;
begin
  min:=x;
  if y<x then
  min:=y;
end;
procedure dp;
var
  i,k:longint;
begin
  for k:=1 to n-2 do
  for i:=1 to n-k do
  f[i,k+i]:=sum[k+i]-sum[i-1]-min(f[i+1,k+i],f[i,k+i-1]);
  f[1,n]:=sum[n]-f[2,n];
end;
procedure main;
var
  i,j,ans,tmp:longint;
begin
  ans:=0;
  for i:=1 to n do
  begin
    fillchar(sum,sizeof(sum),0);
    fillchar(f,sizeof(f),0);
    for j:=1 to n do
    if odd(a[j]) then f[j,j]:=1;

    for j:=1 to n do
    begin
      sum[j]:=sum[j-1];
      if odd(a[j]) then
      inc(sum[j]);
    end;
    dp;
    if f[1,n]>(sum[n]-f[1,n]) then inc(ans);

    tmp:=a[1];
    for j:=1 to n do
    a[j]:=a[j+1];
    a[n]:=tmp;
  end;
  writeln(ans);
end;
procedure init;
var
  i:longint;
begin
  readln(n);
  for i:=1 to n do
  read(a[i]);
end;
begin
  init;
  main;
end.