NOIP2016 day1玩具谜题

题目：

小南有一套可爱的玩具小人,它们各有不同的职业。 
有一天,这些玩具小人把小南的眼镜藏了起来。小南发现玩具小人们围成了一个 圈,它们有的面朝圈内,有的面朝圈外。如下图： 

这时singer 告诉小南一个谜题：“眼镜藏在我左数第 3 个玩具小人的右数第 1 个玩 具小人的左数第 2 个玩具小人那里。” 
小南发现,这个谜题中玩具小人的朝向非常关键,因为朝内和朝外的玩具小人的左右方向是相反的：面朝圈内的玩具小人,它的左边是顺时针方向,右边是逆时针方向；而面向圈外的玩具小人,它的左边是逆时针方向,右边是顺时针方向。 
小南一边艰难地辨认着玩具小人,一边数着： 
“singer 朝内,左数第 3 个是archer。 
“archer 朝外,右数第 1 个是thinker。 
“thinker 朝外,左数第 2 个是writer。 “所以眼镜藏在writer 这里！ ” 
虽然成功找回了眼镜,但小南并没有放心。如果下次有更多的玩具小人藏他的眼镜,或是谜题的长度更长,他可能就无法找到眼镜了。所以小南希望你写程序帮他解 决类似的谜题。这样的谜题具体可以描述为： 
有 n 个玩具小人围成一圈,已知它们的职业和朝向。现在第 1 个玩具小人告诉小南一个包含 m 条指令的谜题,其中第 i 条指令形如“左数/右数第 si 个玩具小人”。你需要输出依次数完这些指令后,到达的玩具小人的职业。

【输入格式】

从文件toy.in 中读入数据。 
输入的第一行包含两个正整数 n, m ,表示玩具小人的个数和指令的条数。 
接下来 n 行,匈行包含一个整数和一个字符串,以逆时针为顺序给出匈个玩具小人的朝向和职业。其中 0 表示朝向圈内, 1 表示朝向圈外。保证不会出现其他的数。字符串长度不超过 10 且仅由小写字母构成,字符串不为空,并且字符串两两不同。整数和字符串之间用一个空格隔开。 
接下来 m 行,其中第 i 行包含两个整数 ai, si ,表示第 i 条指令。若 ai = 0 ,表示向 左数 si 个人；若 ai = 1 ,表示向右数 si 个人。保证 ai 不会出现其他的数, 1 ≤ si < n 。

【输出格式】

输出到文件toy.out 中。 
输出一个字符串,表示从第一个读入的小人开始,依次数完 m 条指令后到达的小人的职业。

分析：

暴力解决。

附上代码：

const
  maxn=100000;


var
  n,m:longint;
  dir:array [0..maxn] of longint;
  s:array [0..maxn] of string;


procedure init;
var
  i,x,y,now:longint;
begin
  readln(n,m);
  for i:=1 to n do
    begin
      readln(dir[i],s[i]);
      delete(s[i],1,1);
    end;
  now:=1;
  for i:=1 to m do
    begin
      readln(x,y);
      if x=0 then
        begin
          if dir[now]=0 then
            begin
              now:=now-y;
              if now<=0 then
                inc(now,n);
              continue;
            end;
          if dir[now]=1 then
            begin
              inc(now,y);
              if now>n then
                dec(now,n);
              continue;
            end;
        end;
      if x=1 then
        begin
          if dir[now]=0 then
            begin
              inc(now,y);
              if now>n then
                dec(now,n);
              continue;
            end;
          if dir[now]=1 then
            begin
              dec(now,y);
              if now<=0 then
                inc(now,n);
              continue;
            end;
        end;
    end;
  writeln(s[now]);
end;


begin
  assign(input,'toy.in');reset(input);
  assign(output,'toy.out');rewrite(output);
  init;
  close(input);close(output);
end.