CH Round #57 - Story of the OI Class 凯撒密码

const maxn=600001;
        maxm=26;
        maxlen=5;

var n,t,i,j:longint;
      a,b:array [0..maxn] of longint;
      f:array [0..maxm,0..maxm] of longint;
      s:string;

begin
      readln(n);
      for i:=1 to maxm do
         for j:=1 to maxm do
          if j>=i then
           f[i,j]:=j-i else f[i,j]:=26-i+j; //hash求出定值
  for i:=1 to n do
    begin
      readln(s);
      t:=0;
      for j:=1 to maxlen-1 do
        t:=t*26+f[ord(s[j])-ord(‘a‘)+1][ord(s[j+1])-ord(‘a‘)+1];
      a[t]:=i; b[t]:=ord(s[1]); //维护标号
    end;
  for i:=1 to n do
    begin
      readln(s);
      t:=0;
      for j:=1 to maxlen-1 do
        t:=t*26+f[ord(s[j])-ord(‘a‘)+1][ord(s[j+1])-ord(‘a‘)+1];
      writeln(a[t],‘ ‘,f[ord(s[1])-ord(‘a‘)+1][ord(b[t])-ord(‘a‘)+1]);
    end;
end.