题目描述

    约翰的N只奶牛（编为1到N号）正在直线上排队．直线上开始的时候一只牛也没有．接下来发生了S(1≤S≤100000)次事件，一次事件可能是以下四种情况之一：

  ．一只奶牛加入队伍的左边（输入“AL”）．

  ．一只奶牛加入队伍的右边（输入“AR”）．

  ·K只队伍左边奶牛离开（输入“DLK”）．

  ·K只队伍右边奶牛离开（输入“DRK”）．

    请求出最后的队伍是什么样．

    数据保证离开的奶牛不会超过队伍里的奶牛数，最后的队伍不空

    第1行输入S，之后S行每行描述一次事件，格式如题目描述所示

 

    由左到右输出队伍最后的情况．

 var

    i,j,k,l,m,n,f,r:longint;

    a:array[..] of longint;

 function getpx:longint;

          var c1:char;i,j,k,l:longint;

          begin

               i:=;j:=;

               repeat

                     read(c1);

                     if i= then

                        begin if c1='A' then i:= else if c1='D' then i:= end

                     else begin if c1='L' then j:= else if c1='R' then j:=; end;

               until j>;

               exit((i-)*+j);

          end;

 begin

      readln(n);m:=;f:=;r:=;

      for i:= to n do

          begin

               case getpx of

                    :begin inc(m);dec(f);a[f]:=m; end;

                    :begin inc(m);inc(r);a[r]:=m; end;

                    :begin read(j);inc(f,j); end;

                    :begin read(j);dec(r,j); end;

               end;

               readln;

          end;

      for i:=f to r do writeln(a[i]);

      readln;

 end.