记录编号 471183 评测结果 AAAAAAAAAAAAAAAAAAAA
题目名称 [NOIP 2016]玩具谜题 最终得分 100
用户昵称 GravatarHale 是否通过 通过
代码语言 Pascal 运行时间 0.184 s
提交时间 2017-11-05 23:01:49 内存使用 25.98 MiB
显示代码纯文本
var m,n,i,j,k,l:longint;
s:char;
a,b,c:array[0..101000] of longint;
st:array[0..101000] of string;
begin
assign(input,'toya.in');
assign(output,'toya.out');
reset(input);
rewrite(output);
readln(m,n);
for i:=1 to m do
 readln(a[i],s,st[i]);
for i:=1 to n do
 readln(b[i],c[i]);
 l:=1;
 k:=0;
for i:=1 to n do
 begin
 if a[l]=0 then if b[i]=0 then l:=l-c[i]
                          else l:=l+c[i]
           else if b[i]=0 then l:=l+c[i]
                          else l:=l-c[i];
 if l>m then l:=l-m;
 if l<1 then l:=l+m;
 end;
 writeln(st[l]);
  close(input);
  close(output);
 end.