1874: [BeiJing2009 WinterCamp]取石子游戏 - BZOJ

Description
小H和小Z正在玩一个取石子游戏。 取石子游戏的规则是这样的，每个人每次可以从一堆石子中取出若干个石子，每次取石子的个数有限制，谁不能取石子时就会输掉游戏。 小H先进行操作，他想问你他是否有必胜策略，如果有，第一步如何取石子。
Input
输入文件的第一行为石子的堆数N 接下来N行，每行一个数Ai，表示每堆石子的个数 接下来一行为每次取石子个数的种类数M 接下来M行，每行一个数Bi，表示每次可以取的石子个数，输入保证这M个数按照递增顺序排列。
Output
输出文件第一行为“YES”或者“NO”，表示小H是否有必胜策略。 若结果为“YES”,则第二行包含两个数，第一个数表示从哪堆石子取，第二个数表示取多少个石子，若有多种答案，取第一个数最小的答案，若仍有多种答案，取第二个数最小的答案。
Sample Input
4
7
6
9
3
2
1
2

Sample Output
YES
1 1

Hint
样例中共有四堆石子，石子个数分别为7、6、9、3，每人每次可以从任何一堆石子中取出1个或者2个石子，小H有必胜策略，事实上只要从第一堆石子中取一个石子即可。

数据规模和约定
数据编号 N范围 Ai范围 数据编号 N范围 Ai范围
1 N=2 Ai≤10 6 N≤10 Ai≤10
2 N=2 Ai≤1000 7 N≤10 Ai≤100
3 N=3 Ai≤100 8 N≤10 Ai≤1000
4 N≤10 Ai≤4 9 N≤10 Ai≤1000
5 N≤10 Ai≤7 10 N≤10 Ai≤1000
对于全部数据，M≤10，Bi≤10

首先暴力算出1000以内的sg函数（肯定是10以内，因为最多10取石子的种方案），然后每一堆的sg函数xor起来得到最终的sg函数，若为0，就输了

若不为0，就赢了，然后就是判断了

我们枚举每一种方案（按字典序枚举），然后计算sg（注意，不是直接与现在的sg xor一下，取k个石子后的sg应该是sg xor sg[a[i]] xor (sg[a[i]-k])）

还要注意一下，这个方案是否可取（在不在m种取石子的方案里），额，傻叉了，直接枚举m种方案就行

 const
     maxn=;
 var
     sg:array[..maxn]of longint;
     a,b,flag:array[..]of longint;
     n,m,s:longint;
     can:boolean;

 procedure ready;
 var
     i:longint;
 begin
     read(n);
     for i:= to n do
       read(a[i]);
     read(m);
     for i:= to m do
       read(b[i]);
 end;

 procedure main;
 var
     i,j:longint;
 begin
     for i:= to  do
       begin
         for j:= to  do
           flag[j]:=;
         for j:= to m do
           if i-b[j]>= then inc(flag[sg[i-b[j]]]);
         for j:= to  do
           if flag[j]= then break;
         sg[i]:=j;
       end;
     for i:= to n do
       s:=s xor sg[a[i]];
     if s= then write('NO')
     else
       begin
         writeln('YES');
         for i:= to n do
           for j:= to m do
             if sg[a[i]-b[j]]=s xor sg[a[i]] then
             begin
               write(i,' ',b[j]);
               exit;
             end;
       end;
 end;

 begin
     ready;
     main;
 end.