切换到宽版
  • 5197阅读
  • 1回复

一个极水的排序程序 [复制链接]

上一主题 下一主题
离线tangent
 
只看楼主 倒序阅读 0 发表于: 2006-08-02
var a:array[-32767..32767]of record
    mark:boolean;
    times:longint;
  end;
  i,j,n,sum,min,max:integer;
begin
fillchar(a,sizeof(a),false);
readln(n);
min:=32767;max:=-32767;
for i:=1 to n do begin
  read(sum);
  a[sum].mark:=true;
  a[sum].times:=a[sum].times+1;
  if sum<min then min:=sum;
  if sum>max then max:=sum;
end;
readln;
for i:=min to max do if a.mark=true then begin
  for j:=1 to a.times do write(i,' ');
end;
writeln;
end.
离线r134a
只看该作者 1 发表于: 2006-08-02
不就是哈希桶排么? 不过比偶的哈希桶排高级!

谢了!!!
.


祝大家明年NOIP大获全盛!


.
快速回复
限100 字节
 
上一个 下一个