【题意】
给定一个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.