Задача (динамика)

[Witaliy]

Здравствуйте.
У меня такая задача: нужно найти среди N слов количество разных(одинаковые они тогда, когда перестановкой литер одного слова можна получить другое и их длинны одинаковы)
n<=20000
Нпрример
N=5;
список слов:
slovo
hello
olovo
ehlol
yes

Вот мой код:

program my;
var n,i,j,res : longint;
    a : array[1..20000] of string[20];
function can_word(s1,s2 : string) : boolean;
var i,j,k : integer;
begin
k := 0;
 for i := 1 to length(s1) do
  begin
  for j := 1 to length(s2) do
   begin
   if (s1[i]=s2[j]) and(s2[j]<>'-') then begin
   s2[j] := '-';
   s1[i] := '-';
   inc(k);
   break;
   end;
   end;
  end;
 if (k >= length(s1)) and (length(s1) = length(s2)) then
  can_word := true
 else
  can_word := false;
end;
begin
readln(n);
res := n;
for i := 1 to n do
begin
readln(a[i]);
if i > 1 then
 begin
 for j := 1 to i-1 do
  begin
  if can_word(a[i],a[j]) then
   begin
   a[j] := '-';
   dec(res);
   end;
  end;
 end;
 end;
if n = 1 then
 writeln(1)
else
writeln(res);
end.

Но такой подход очень медленный и неефективен. Помогите как-то оптимизировать его.
Спасибо.

[Stilet]

Делал подобное в колледже, там слова превращал в хеши, тогда получалась строка которая независимот от пререстановки букв не менялась, потом тупо сравнивал хеши, вот только формулу уже не помню...

[Minotavr_x86]

Есть дава предложения:
1. Упорядочить во всех словах буквы, а потом сравнить.
2. Сложить все буквы в слове и сравнивать числа.

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

Делал подобное в колледже, там слова превращал в хеши, тогда получалась строка которая независимот от пререстановки букв не менялась, потом тупо сравнивал хеши, вот только формулу уже не помню...

В общем случае однозначного соответствия между исходными данными и хеш-кодом нет. Поэтому существует множество массивов данных, дающих одинаковые хеш-коды. wikipeda.org

[Jean-Esther]

Если дать ограничение на понятие «слова», как последовательность 'a'..'z', то любое слово однозначно задает 26-элементную последовательность целых чисел, при этом "равные" слова дают одинаковую последовательность, а "разные" — разную (например, если в первое число дает количество букв "А", второе — "В" и т.д.)
Тогда еще при чтение можно сформировать (преобразовать) такие последовательности (по сути, массивы) для каждого слова и под конец устроить сравнения полученых последовательностей, которое будет в любом случая намного быстрее, чем попарный запуск function can_word(s1,s2 : string) : boolean;