UVa 1339

BR2mEkr2

于 2016-04-10 13:52:06 发布

阅读量240

点赞数

分类专栏： UVa 文章标签： UVa pascal

本文链接：https://blog.csdn.net/BR2mEkr2/article/details/51112584

版权

UVa 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

for k := 'A' to 'Z' do
    if r1[k] <> 0 then
     for j := 'A' to 'Z' do
      if r2[j] = r1[k] then
       begin
        r2[j] := 0;
        r1[k] := 0;
        break;
       end;
boo := 1;
for k := 'A' to 'Z' do
   begin
    if (r1[k] <> 0) or (r2[k] <> 0)
    then boo := 0;
   end;
if boo = 0 then writeln('NO')
else writeln('YES');
end.

var
boo, i : integer;
k, j : char;
a, b : string;
r1,r2 : array['A'..'Z'] of integer;
begin
readln(a);
readln(b);
fillchar(r1, sizeof(r1), 0);
fillchar(r2, sizeof(r2), 0);
for i := 1 to length(a) do
begin
inc(r1[a[i]]);
inc(r2[b[i]]);
end;

for k := 'A' to 'Z' do
if r1[k] <> 0 then
for j := 'A' to 'Z' do
if r2[j] = r1[k] then
begin
r2[j] := 0;
r1[k] := 0;
break;
end;
boo := 1;
for k := 'A' to 'Z' do
begin
if (r1[k] <> 0) or (r2[k] <> 0)
then boo := 0;
end;
if boo = 0 then writeln('NO')
else writeln('YES');
end.