【NOIP2011模拟9.9】单词分类

Description

　　Oliver为了学号英语决定苦背单词，但很快他发现要直接记住杂乱无章的单词非常困难，他决定对单词进行分类。
　　两个单词可以分为一类当且仅当组成这两个单词的各个字母的数量均相等。
　　例如“AABAC”，它和“CBAAA”就可以归为一类，而和“AAABB”就不是一类。
　　现在Oliver有N个单词，所有单词均由大写字母组成，每个单词的长度不超过100.你要告诉Oliver这些单词会被分成几类。

Input

　　输入文件的第一行为单词个数N，以下N行每行为一个单词。

Output

　　输出文件仅包含一个数，表示这N个单词分成的类数。

Sample Input

3

AABAC

CBAAA

AAABB

Sample Output

2

Data Constraint

Hint

【数据范围】
　　对于70%的数据满足N<=100。
　　对于100%的数据满足N<=10000。

分析：
先给每个字符串排一次序，那么排序后相同的一定是同一类，然后把所有字符串排序。然后去重的方法就可以求出解。

代码：

var
 s:array [1..10001] of string;
 i,n,ans:longint;
procedure qsort(x,l,r:longint);
  var
   i,j:longint;
   key,temp:char;
  begin
   if l>=r then exit;
   i:=l;j:=r;
   key:=s[x,l+random(r-l+1)];
  repeat
   while  (s[x,i]<key) do inc(i);
   while  (s[x,j]>key) do dec(j);
   if i<=j then
    begin
     temp:=s[x,i]; s[x,i]:=s[x,j]; s[x,j]:=temp;
     inc(i);dec(j);
    end;
  until i>j;
  qsort(x,l,j);
  qsort(x,i,r);
 end;

procedure qsort1(l,r:longint);
  var
   i,j:longint;
   key,temp:string;
  begin
   if l>=r then exit;
   i:=l;j:=r;
   key:=s[l+random(r-l+1)];
  repeat
   while  (s[i]<key) do inc(i);
   while  (s[j]>key) do dec(j);
   if i<=j then
    begin
     temp:=s[i]; s[i]:=s[j]; s[j]:=temp;
     inc(i);dec(j);
    end;
  until i>j;
  qsort1(l,j);
  qsort1(i,r);
 end;

begin
 readln(n);
 for i:=1 to n do
  begin
   readln(s[i]);
   qsort(i,1,length(s[i]));
  end;
 qsort1(1,n);
 ans:=1;
 for i:=2 to n do
   if s[i]<>s[i-1] then
    inc(ans);
 writeln(ans);
end.