HDU1849 SG函数

然而这题水的我都不想说啥=。=

因为可以向左任意挪，所以直接sg[i]=i;

<span style="font-size:18px;">var
    n,x,ans             :longint;
    i                   :longint;
    sg                  :array[0..1010] of longint;
begin
   read(n);
   for i:=1 to 1000 do sg[i]:=i;
   while (n<>0) do
   begin
      ans:=0;
      for i:=1 to n do
      begin
         read(x);
         ans:=ans xor sg[x];
      end;
      if (ans=0) then writeln('Grass Win!')
       else writeln('Rabbit Win!');
      read(n);
   end;
end.
</span>

——by Eirlys