poj1026

【题意】

给定一个n元置换，问一个字符串（长度若小于n则用空格补齐）经过k次置换后的样子

【输入】

多组数据

每组数据第一行一个数字表示n，若为0则表示输入结束

接下来一行n个数字表示n元置换

之后每行开头一个数字加一个空格加一个字符串，表示一次询问，若开头数字为0则表示询问结束

【输出】

对于每次询问，输出一个字符串表示字符串经过k次置换后的样子

每组数据之间用空行来分隔

置换群，首先预处理二的零次方到二的二十次方次置换，之后对于询问进行置换即可

program poj1026;
type
  arr=array [0..201] of longint;
var
  n,i,j,k,l:longint;
  one:int64;
  cache,ans:arr;
  change:array [0..31] of arr;
  s:string;
  temp:char;
begin
  repeat
    read(n);
    if n=0 then break;
    for i:=1 to n do
      read(change[0,i]);
    readln;
    for k:=1 to 20 do
      for i:=1 to n do
        change[k,i]:=change[k-1,change[k-1,i]];
    repeat
      read(k);
      if k=0 then break;
      read(temp);
      readln(s);
      l:=length(s);
      while l<n do
        begin
          s:=s+' ';
          inc(l);
        end;
      for i:=1 to n do
        ans[i]:=i;
      while k<>0 do
        begin
          j:=trunc(ln(k)/ln(2));
          for i:=1 to n do
            cache[change[j,i]]:=ans[i];
          ans:=cache;
          k:=k-(1 shl j);
        end;
      for i:=1 to n do
        write(s[ans[i]]);
      writeln;
    until false;
    writeln;
   until false;
end.