3
QWERTYUIOPLKJHGFDSAZXCVBNM
QWERTYUIOPLKJHGFDSAZXCVBNN
HIJACK

感觉c++里头的stl_string 真的特别好用
之前不知道的时候用char模拟打了有一百来行，现在可以十行搞定QwQ

第一次是failed打成了faild
后来是各种判断出错
mdzz

md不手写字符串读入就WA后6个点，我有一句mmp知当讲不当讲。。。

char数组的空格坑到我了，简直..
自己码的果然渣渣..码风..

代码写得貌似不好

-_-lll

回复 @liu_runda :
一一对应...

……读题

手残复制了一句if然后就忘了改变量名了，然后就各种wa了QAQ

一一对应。。。

map大法好，但速度慢得出翔。

@(⊙o⊙)… 不必这样贴，有点不美观，选中“允许查看你提交的代码”别人就可以看了

program spy(input,output);
var
a,b:array['A'..'Z'] of char;
st1,st2,st3:string;
i,j,n:integer;
ch:char;
procedure work;
begin
writeln('Failed');
close(input);close(output);
halt;
end;
begin
assign(input,'spy.in');assign(output,'spy.out');
reset(input);rewrite(output);
readln;readln;readln;
n:=length;
for ch:='A' to 'Z' do
begin
a[ch]:='#';
b[ch]:='#';
end;
for i:=1 to n do
if ((a[st1[i]]='#') and (b[st2[i]]='#')) or (a[st1[i]]=st2[i]) then
begin
a[st1[i]]:=st2[i];
b[st2[i]]:='@';
end
else work;
for ch:='A' to 'Z' do
if b[ch]='#' then work;
for i:=1 to length do
write(a[st3[i]]);
writeln;
close(input);close(output);
end.