bzoj1028

穷举水题

var v:array[0..410] of boolean;
    q:array[0..3010] of longint;
    ans,count,jud:array[0..1010] of longint;
    x,i,j,n,m,tot,t,k:longint;

function check:boolean;   //贪心判断
  var i:longint;
  begin
    for i:=1 to n+2 do
    begin
      if jud[i]<0 then exit(false);
      jud[i]:=jud[i] mod 3;  
      if jud[i]>0 then
      begin
        dec(jud[i+1],jud[i]);
        dec(jud[i+2],jud[i]);
        jud[i]:=0;
      end;
    end;
    exit(true);
  end;

begin
  readln(n,m);
  for i:=1 to 3*m+1 do
  begin
    read(x);
    if count[x]=0 then
    begin
      inc(t);
      q[t]:=x;
    end;
    inc(count[x]);
    v[x]:=true;
    v[x-1]:=true;
    v[x+1]:=true;
  end;

  for i:=1 to n do
    if v[i] then   //穷举添加的牌
    begin
      for j:=1 to n do
        jud[j]:=count[j];
      inc(jud[i]);
      for j:=1 to t do  //穷举对子
      begin
        dec(jud[q[j]],2);
        if check then
        begin
          inc(tot);
          ans[tot]:=i;
          break;
        end;
        for k:=1 to n+2 do
          jud[k]:=count[k];
        inc(jud[i]);
      end;
    end;

  if tot=0 then writeln('NO')
  else begin
    for i:=1 to tot do
    begin
      write(ans[i]);
      if i<>tot then write(' ');
    end;
    writeln;
  end;
end.