program p2419;
 var person:array[1..100]of string[100];
     use:array[1..100]of boolean;
     out:byte;
     p,t:byte;

 procedure init;
  var i,k:integer;
      j:char;
  begin
   readln(p,t);
   repeat
    readln(i,j,j);
    k:=pos(j,person[i]);
    if k=0 then person[i]:=person[i]+j;
   until eof;
  end;

 procedure swap(var x,y:char);
  var i:char;
  begin
   i:=x;x:=y;y:=i;
  end;

 procedure qsort(l,r,k:integer);
  var i,j:integer;mid:char;
  begin
   i:=l;j:=r;mid:=person[k,(i+j) div 2];
   repeat
    while person[k,i]<mid do inc(i);
    while person[k,j]>mid do dec(j);
    if i<=j then begin
                  swap(person[k,i],person[k,j]);
                  inc(i);
                  dec(j);
                 end;
   until i>j;
   if l<j then qsort(l,j,k);
   if i<r then qsort(i,r,k);
  end;

 procedure main;
  var i,j:integer;
  begin
   for i:=1 to p do
    qsort(1,length(person[i]),i);
   for i:=1 to p do
    begin
     if use[i] then continue;
     inc(out);
     use[i]:=true;
     for j:=i+1 to p do
      if person[i]=person[j] then use[j]:=true;
    end;
  end;

 begin
  out:=0;
  fillchar(use,sizeof(use),false);
  init;
  main;
  writeln(out);
 end.

• Re:明显没错的！！为什么会错啊！！！！ (1371) My_loves 2005-08-16 14:34:33
  • 明显的错误啊！！！1 (0) harrywy 2005-08-16 16:19:47