Noip2016提高组 玩具谜题toy

Day 1 T1

题目大意

一些naive的玩具小人把小南的眼镜藏起来，但小南有一份too simple的小纸条，告诉小南眼镜在第一个小人往哪数第几个的往哪数的第几个的往哪数第几个的往哪数的第几个的往哪数第几个的往哪数的第几个......那里，但是他们又不too young，有的职业是mengbier的小人朝内，有的职业是mogician的小人朝外，这意味着它们的左右方向是相反的，于是小南为了不让生命-1s，就来找了你来帮他+1s、+2s、+3s......

type rec=record
pos:longint;
job:string;
end;
var
f:array[0..100009] of rec;
n,m,i,j,x,y,a,b:longint;
begin
a:=1;
readln(n,m);
for i:=1 to n do
readln(f[i].pos,f[i].job);
for i:=1 to m do
begin
readln(x,y);
if f[a].pos=0 then begin
case x of
0:begin if a-y<=0 then a:=n+a-y else a:=a-y; end;
1:begin if a+y>n then a:=a+y-n else a:=a+y; end;
end;
end
else begin
case x of
1:begin if a-y<=0 then a:=n+a-y else a:=a-y; end;
0:begin if a+y>n then a:=a+y-n else a:=a+y; end;
end;
end;
end;
delete(f[a].job,1,1);
writeln(f[a].job);
end.

神奇的代码