poj2418

【题意】

给定不超过1000000个不多于10000种的字符串，求每种字符串占总数的百分比，结果保留四位小数

【输入】

每行一个字符串，字符串长度不超过30

【输出】

按字典序输出每种字符串，并输出占总数的百分比，结果保留四位小数

快排水过，实际上最好用trie树或者平衡树

program poj2418;
var
  n,i,j,k,tot:longint;
  str:array [0..1000001] of string[30];

procedure qsort (s,e:longint);
var
  i,j:longint;
  k,temp:string;
begin
  if s>=e then exit;
  i:=s;
  j:=e;
  k:=str[(s+e) div 2];
  while i<=j do
    begin
      while str[i]<k do inc(i);
      while str[j]>k do dec(j);
      if i>j then break;
      temp:=str[i];
      str[i]:=str[j];
      str[j]:=temp;
      inc(i);
      dec(j);
    end;
  qsort(s,j);
  qsort(i,e);
end;

begin
  n:=0;
  while not seekeof do
    begin
      inc(n);
      readln(str[n]);
    end;
  if n=0 then exit;
  qsort(1,n);
  write(str[1]);
  k:=1;
  for i:=2 to n do
    if str[i]<>str[k] then
      begin
        writeln(' ',(i-k)*100/n:0:4);
        write(str[i]);
        k:=i;
      end;
  writeln(' ',(n-k+1)*100/n:0:4);
end.