洛谷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.