poj2418

来源：互联网发布：the stone roses 知乎编辑：程序博客网时间：2024/05/16 00:57

【题意】

给定不超过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.