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.

Download