1874: [BeiJing2009 WinterCamp]取石子游戏

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=1010;
var
    sg:array[0..maxn]of longint;
    a,b,flag:array[0..10]of longint;
    n,m,s:longint;
    can:boolean;
 
procedure ready;
var
    i:longint;
begin
    read(n);
    for i:=1 to n do
      read(a[i]);
    read(m);
    for i:=1 to m do
      read(b[i]);
end;
 
procedure main;
var
    i,j:longint;
begin
    for i:=1 to 1000 do
      begin
        for j:=0 to 10 do
          flag[j]:=0;
        for j:=1 to m do
          if i-b[j]>=0 then inc(flag[sg[i-b[j]]]);
        for j:=0 to 10 do
          if flag[j]=0 then break;
        sg[i]:=j;
      end;
    for i:=1 to n do
      s:=s xor sg[a[i]];
    if s=0 then write('NO')
    else
      begin
        writeln('YES');
        for i:=1 to n do
          for j:=1 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.