Анаграмма

[daniil123]

Слово называется анаграммой другого слова, если оно может быть получено перестановкой его букв.
Во входном файле два слова в отдельных строках. Длина каждого слова не превышает 255 символов.
В выходной файл выведите "YES" - если введенные слова являются анаграммами друг друга, и "NO" - в противном случае.
Пример:
SHARM YES
MARSH

ANANAS NO
NASA

[Serge_Bliznykov]

на форуме уже решалась такая задачка.
а алгоритм решения, как ни странно, прост, как топор:
проходим по всем буквам первого слова, находя для них точно такие же во втором слове. Если для какой-то буквы первого слова аналогичной не найдено - прерывание цикла, выход с "NO", если нашлась буква - то из второго слова её нужно удалить.
если дошли до конца 1-го слова без сбоев, тогда проверяем остаток во 2-м слове - если он пуст - ответ "YES", если во втором слове остались буквы - ответ "NO"



p.s. я тут алгоритм расписывал больше, чем писать полностью исходный код решения!

[TinMan]

Сообщение от Serge_Bliznykov

проходим по всем буквам первого слова, находя для них точно такие же во втором слове. Если для какой-то буквы первого слова аналогичной не найдено - прерывание цикла, выход с "NO"
если дошли до конца 1-го слова без сбоев, тогда проверяем остаток во 2-м слове - если он пуст - ответ "YES", если во втором слове остались буквы - ответ "NO"[/I]

Тут не совсем ясно сказано, небольшое уточнение: после нахождения буквы во втором слове, ее надо оттуда убрать.

Но я бы поступил проще: отсортировал бы оба слова и сравнил. Если равны - значит, анаграмма..

[Вадим Мошев]

При этом, кстати, сразу (перед сортировкой) можно сравнить длину слов. Если она разная, значит NO. В противном случае работаем дальше.

[Serge_Bliznykov]

Вадим Мошев, да, согласен. это несложно и сразу отсеет заведомо неверные варианты!

TinMan, ну, можно и так, просто мне показалось, что вариант без сортировки проще (ведь в Паскаль/Delphi нет встроенных методов сортировки), да и эффективнее. Чем сортировать 255 символов, программа может уже завершить работу на первых же проверках...
ладно. раз пошла такая пьянка, то вот код решения:

if length(s1)<>(s2) then WriteLn('NO')
else begin
  for i:=1 to length(s1) do begin
    k := Pos(s1[i], s2);
    if k>0 then Delete(s2, k, 1)
    else Break;
  end;
  if Length(s2)>0 then Writeln('NO')
  else Writeln('YES');
end;

p.s. не проверял, но идея, надеюсь, понятна...

[TinMan]

Я совершенно согласен со всеми доводами . Конечно, двойная сортировка не очень эффективна, она годится скорее для PHP etc. Да и простота тут весьма условна, только при наличии библиотечных процедур для сортировки..

Интересно, что если наложить условие, что слова непусты (или считать, что пустота пустоте не анаграмма, что не лишено сермяжного смысла)), то можно избавиться от двойного вывода 'NO' в приведенном коде.