NOIP 提高組第一式第一題——玩具迷題

SSL 2595

小南有一套可愛的玩具小人, 它們各有不同的職業。

有一天, 這些玩具小人把小南的眼鏡藏了起來。 小南發現玩具小人們圍成了一個圈,它們有的面朝圈內,有的面朝圈外。如下圖:

這時singer告訴小南一個謎題: “眼鏡藏在我左數第3個玩具小人的右數第1個玩具小人的左數第2個玩具小人那裡。 ”

小南發現, 這個謎題中玩具小人的朝向非常關鍵, 因為朝內和朝外的玩具小人的左右方向是相反的: 面朝圈內的玩具小人, 它的左邊是順時針方向, 右邊是逆時針方向; 而面向圈外的玩具小人, 它的左邊是逆時針方向, 右邊是順時針方向。

小南一邊艱難地辨認著玩具小人, 一邊數著:

singer朝內, 左數第3個是archer。

archer朝外,右數第1個是thinker。

thinker朝外, 左數第2個是writer。

所以眼鏡藏在writer這裡!

雖然成功找回了眼鏡, 但小南並沒有放心。 如果下次有更多的玩具小人藏他的眼鏡, 或是謎題的長度更長, 他可能就無法找到眼鏡了 。 所以小南希望你寫程式幫他解決類似的謎題。 這樣的謎題具體可以描述為:

有 n個玩具小人圍成一圈, 已知它們的職業和朝向。現在第1個玩具小人告訴小南一個包含 m條指令的謎題, 其中第 z條指令形如“左數/右數第 s,個玩具小人”。 你需要輸出依次數完這些指令後,到達的玩具小人的職業。

輸入輸出格式

輸入格式：
輸入的第一行包含西個正整數 n,m, 表示玩具小人的個數和指令的條數。

接下來 n行, 每行包含一個整數和一個字串, 以逆時針為順序給出每個玩具小人的朝向和職業。其中0表示朝向圈內, 1表示朝向圈外。保證不會出現其他的數。字串長度不超過10且僅由小寫字母構成, 字串不為空, 並且字串兩兩不同。 整數和字串之問用一個空格隔開。

接下來 m行,其中第 z行包含兩個整數 a,,s,,表示第 z條指令。若 a,= 0,表示向左數 s,個人;若a,= 1 ,表示向右數 s,個人。保證a,不會出現其他的數, 1 ≤ s , < n 。

輸出格式：
輸出一個字串, 表示從第一個讀入的小人開始, 依次數完 m條指令後到達的小人的職業。

輸入輸出樣例

輸入樣例#1：
7 3
0 singer
0 reader
0 mengbier
1 thinker
1 archer
0 writer
1 mogician
0 3
1 1
0 2
輸出樣例#1：
writer
輸入樣例#2：
10 10
1 C
0 r
0 P
1 d
1 e
1 m
1 t
1 y
1 u
0 V
1 7
1 1
1 4
0 5
0 3
0 1
1 6
1 2
0 8
0 4
輸出樣例#2：
y
說明

【樣例1說明】

這組資料就是【題目描述】 中提到的例子。

【子任務】

子任務會給出部分測試資料的特點。 如果你在解決題目中遇到了困難, 可以嘗試只解決一部分測試資料。

每個測試點的資料規模及特點如下表:

其中一些簡寫的列意義如下:

• 全朝內: 若為“√”, 表示該測試點保證所有的玩具小人都朝向圈內;

全左數:若為“√”,表示該測試點保證所有的指令都向左數,即對任意的

1≤z≤m, ai=0;

s,= 1:若為“√”,表示該測試點保證所有的指令都只數1個,即對任意的

1≤z≤m, si=1;

職業長度為1 :若為“√”,表示該測試點保證所有玩具小人的職業一定是一個

長度為1的字串。

---

這題純模擬，按照每個人的朝向和向哪個方向數，可分四種情況來判斷。（注意如果k=0，則k就等於n）

---

程式碼如下：

var  n,m:longint;
     x:array[1..100000]of char;
     y:array[1..100000]of string;

procedure init;
var i:longint;
    z:char;
begin
  readln(n,m);
  for i:=1 to n do readln(x[i],z,y[i]);
end;

procedure main;
var  k,i,x1,x2:longint;
begin
  k:=1;
  for i:=1 to m do
    begin
      readln(x1,x2);
      if (x[k]='0')and(x1=0) then k:=(k-x2+2*n) mod n
      else if (x[k]='0')and(x1=1) then k:=(k+x2+n) mod n
           else if (x[k]='1')and(x1=1) then k:=(k-x2+2*n) mod n
                else if (x[k]='1')and(x1=0)then k:=(k+x2+n) mod n;
      if k=0 then k:=n; 
    end;
  write(y[k]);
end;

begin
  init;
  main;
end.