題目：

題目描述

21世紀，許多人得了一種奇怪的病：起床困難綜合症，其臨床表現為：起床難，起床後精神不佳。作為一名青春陽光好少年，atm一直堅持與起床困難綜合症作鬥爭。通過研究相關文獻，他找到了該病的發病原因： 在深邃的太平洋海底中，出現了一條名為drd的巨龍，它掌握著睡眠之精髓，能隨意延長大家的睡眠時間。 正是由於drd的活動，起床困難綜合症愈演愈烈， 以驚人的速度在世界上傳播。為了徹底消滅這種病，atm決定前往海底，消滅這條惡龍。歷經千辛萬苦，atm終於來到了drd所在的地方，準備與其展開艱苦卓絕的戰鬥。drd有著十分特殊的技能，他的防禦戰線能夠使用一定的運算來改變他受到的傷害。具體說來，drd的防禦戰線由n扇防禦門組成。每扇防禦門包括一個運算op和一個引數t，其中運算一定是OR,XOR,AND中的一種，引數則一定為非負整數。如果還未通過防禦門時攻擊力為x，則其通過這扇防禦門後攻擊力將變為x op t。最終drd受到的傷害為對方初始攻擊力x依次經過所有n扇防禦門後轉變得到的攻擊力。

由於atm水平有限，他的初始攻擊力只能為0到m之間的一個整數（即他的初始攻擊力只能在 0, 1, … , m中任選，但在通過防禦門之後的攻擊力不受m的限制）。為了節省體力，他希望通過選擇合適的初始攻擊力使得他的攻擊能讓drd受到最大的傷害，請你幫他計算一下，他的一次攻擊最多能使drd受到多少傷害。

輸入輸出格式

輸入格式：
輸入檔案的第 1 行包含 2 個整數，依次為n, m，表示 drd 有n扇防禦門，atm 的初始攻擊力為0到m之間的整數。

接下來n行，依次表示每一扇防禦門。每行包括一個字串op和一個非負整數t，兩者由一個空格隔開，且op在前，t在後，op表示該防禦門所對應的操作，t表示對應的引數。

輸出格式：
輸出一行一個整數，表示atm的一次攻擊最多使drd受到多少傷害。

作者思路：看似很難，實際上用貪心。照他說的做。

程式碼：

var n,m,ans,cnt:int64;
    mark:longint;
    a,b:array[0..1000000] of int64;
    c:array[0..100] of boolean;
    flag:boolean;
procedure init;
var i:longint;
    ch:char;
begin
  readln(n,m);
  for i:=1 to n do
  begin
    read(ch);if ch='A'
 
 then b[i]:=1 else if ch='O' then b[i]:=2 else b[i]:=3;
    while ch<>' ' do read(ch);
    readln(a[i]);
    if (b[i]=1) and (a[i]=0) then
    begin
      flag:=true;mark:=i;
    end;
  end;
end;
procedure work2;
var x:int64;
    i:longint;
begin
  x:=0;
  for i:=mark+1 to n do
    if b[i]=1 then x:=x and a[i]
    else
      if b[i]=2 then
        x:=x or a[i]
      else x:=x xor a[i];
  writeln(x);
end;
procedure work1;
var x,y,z:int64;
    i,j:longint;
begin
  x:=0;
  for i:=1 to n do
    if b[i]=1 then
      x:=x and a[i]
      else
        if b[i]=2 then
          x:=x or a[i] else x:=x xor a[i];
  z:=x;ans:=x;cnt:=0;
  fillchar(c,sizeof(c),false);
  for i:=31 downto 1 do
    if z and (1<<(i-1))=0 then
    begin
      x:=1<<(i-1);
      for j:=1 to n do if b[j]=1 then x:=x and a[j] else if b[j]=2 then x:=x or a[j] else x:=x xor a[j];
      if (x and (1<<(i-1))<>0) and (cnt+1<<(i-1)<=m) then begin c[i]:=true;inc(cnt,1<<(i-1));end;
    end;
  for i:=1 to 31 do if c[i] then inc(ans,1<<(i-1));
  writeln(ans);
end;
begin
  ans:=0;
  flag:=false;
  init;
  if flag then work2 else work1;
end.