poj2159 Ancient Cipher

poj2159 Ancient Cipher

vars1,s2:string;i,hash1,hash2:longint;h1,h2:array[0..26]of longint;
beginreadln(s1);readln(s2);if(length(s1)<>length(s2))then writeln('NO')else beginfor i:=1 to length(s1) dobegininc(h1[ord(s1[i])-ord('A')+1]);inc(h2[ord(s2[i])-ord('A')+1]);end;for i:=1 to 26 dobeginhash1:=hash1+h1[i]*h1[i];hash2:=hash2+h2[i]*h2[i];end;if(hash1<>hash2)then writeln('NO') else writeln('YES');end;
end.