洛谷1071 潜伏者

题目

  给出一段加密后的大写字母和一段加密前的大写字母(两端等长)。已知加密规则如下：

  1.加密前的内容与加密后的内容均由大写字母‘A’-‘Z’构成（无空格等其他字符）。

  2.每个字母只对应一个唯一的“密字”，不同的字母对应不同的“密字”。“密字”可以和原字母相同。加密的过程就是将原信息中的所有字母替换为其对应的“密字”。

  现要求找出每个字母所对应的“密字”，并破译另一段加密后的大写字母。步骤如下：

 扫描原信息，对于原信息中的字母 x（代表任一大写字母），找到其在加密信息中的对应大写字母 y，并认为在密码里 y 是 x 的密字。如此进行下去直到停止于如下的某个状态：

1． 所有信息扫描完毕，‘A’-‘Z’ 所有 26 个字母在原信息中均出现过并获得了相应的“密字”。

2． 所有信息扫描完毕，但发现存在某个（或某些）字母在原信息中没有出现。扫描中发现掌握的信息里有明显的自相矛盾或错误（违反 S 国密码的编码规则）。例如某条信息“XYZ”被翻译为“ABA”就违反了“不同字母对应不同密字”的规则。

若如情况一，则已找到每个字母的“密字”，可以开始破译密文并输出
若如情况二，则输出“Failed”，不再进行破译

题解

模拟，要做认真一点，应用字符串的各种函数要规范
时间复杂度O(length(s))

代码

var
  a:array[1..26]of char;
  b:array['A'..'Z']of char;
  i,j,k,ans:longint;
  s,c,e,d:string;
begin
  readln(s);
  readln(c);
  for i:=1 to 26 do
    begin
      a[i]:='1';
      b[chr(i+ord('A')-1)]:='1';
    end;
  for i:=1 to length(s) do
    if (a[ord(s[i])-ord('A')+1]='1')and((b[c[i]]=s[i])or(b[c[i]]='1')) then
      begin
        a[ord(s[i])-ord('A')+1]:=c[i];
        b[c[i]]:=s[i];
        inc(k);
      end else
    if (a[ord(s[i])-ord('A')+1]<>c[i])or(b[c[i]]<>s[i]) then
      begin
        writeln('Failed');
        halt;
      end;
  if k<26 then begin writeln('Failed');halt;end;
  readln(e);
  for i:=1 to length(e) do
    if (e[i]>='A')and(e[i]<='Z') then
      d:=d+a[ord(e[i])-ord('A')+1];
  writeln(d);
end.