题目描述
约翰的N只奶牛（编为1到N号）正在直线上排队．直线上开始的时候一只牛也没有．接下来发生了S(1≤S≤100000)次事件，一次事件可能是以下四种情况之一：
．一只奶牛加入队伍的左边（输入“AL”）．
．一只奶牛加入队伍的右边（输入“AR”）．
·K只队伍左边奶牛离开（输入“DLK”）．
·K只队伍右边奶牛离开（输入“DRK”）．
请求出最后的队伍是什么样．
数据保证离开的奶牛不会超过队伍里的奶牛数，最后的队伍不空
标签：
.jpg)
题解：么么哒直接上数组和左右指针A之。。。（HansBug：论蒟蒻的刷水之路^_^）
1 var 2 i,j,k,l,m,n,f,r:longint; 3 a:array[0..500000] of longint; 4 function getpx:longint; 5 var c1:char;i,j,k,l:longint; 6 begin 7 i:=0;j:=0; 8 repeat 9 read(c1); 10 if i=0 then 11 begin if c1=‘A‘ then i:=1 else if c1=‘D‘ then i:=2 end 12 else begin if c1=‘L‘ then j:=1 else if c1=‘R‘ then j:=2; end; 13 until j>0; 14 exit((i-1)*2+j); 15 end; 16 begin 17 readln(n);m:=0;f:=200000;r:=199999; 18 for i:=1 to n do 19 begin 20 case getpx of 21 1:begin inc(m);dec(f);a[f]:=m; end; 22 2:begin inc(m);inc(r);a[r]:=m; end; 23 3:begin read(j);inc(f,j); end; 24 4:begin read(j);dec(r,j); end; 25 end; 26 readln; 27 end; 28 for i:=f to r do writeln(a[i]); 29 readln; 30 end.
3403: [Usaco2009 Open]Cow Line 直线上的牛
标签：
原文地址：http://www.cnblogs.com/HansBug/p/4297697.html
