题解 P1808 【单词分类_NOI导刊2011提高（01）】

fl_334 · 2015-11-08 17:56:17 · 题解

var
i,j,k,n,sum:longint;
s:array[1..10000,'A'..'Z']of longint;
t:string;
b:boolean;
function pd(i,j:longint):boolean;//判断两个字符串是否相同
var
        k:char;
begin
        for k:='A' to 'Z' do
        if s[i,k]<>s[j,k] then exit(false);
        exit(true);
end;
begin
        readln(n);
        for i:=1 to n do
        begin
        readln(t);
        for j:=1 to length(t) do
                inc(s[i,t[j]]);
        b:=false;
        for k:=1 to i-1 do
        begin
        if pd(k,i) then begin
                         b:=true;
                         break;
                        end;
        end;
        if b=false then inc(sum);
        end;
        write(sum);
end.