Noip2016提高组 玩具谜题toy

Day 1 T1

题目大意

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

输入样例

7 3

0 singer
0 reader
0 mengbier
1 thinker
1 archer
0 writer
1 mogician
0 3
1 1
0 2

输出样例

writer

数据范围
 1<=n,m<=10^5

第一天的大水题，小人两个方向0（朝内） 1（朝外），数小人的两个方向0（向左数） 1（向右数），也就四个if语句判断往哪边数，超过n或小于1的就膜一膜或者+n或-n就可以了
只是有一点的细节 Pascal选手输入职业时可能会有一开始的空格读入要处理，c++选手不是cin读入的会读入空格也是药丸的2333

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

神奇的代码