NKCARD - Tráo bài
Tác giả: ladpro98
Ngôn ngữ: Pascal
program NKCARD;
uses math;
const fi='';
maxn=1000006;
var a:array[-maxn..maxn] of longint;
inp:text;
m,k,i,l,r:longint;
c:char;
begin
assign(inp,fi);reset(inp);
read(inp,m,k);
for i:=m downto 1 do a[i]:=m-i;
l:=1;r:=m;
while not eof(inp) do begin
read(inp,c);
if c='A' then begin
dec(l);
a[l]:=a[r];
dec(r);
end;
if c='B' then begin
dec(l);
a[l]:=a[r-1];
a[r-1]:=a[r];
dec(r);
end;
end;
write(a[r-k+1],' ',a[r-k],' ',a[r-k-1]);
end.