记录编号 43869 评测结果 AAAAAAAAAA
题目名称 [NOIP 2010冲刺十]数字积木 最终得分 100
用户昵称 Gravatar天下第一的吃货殿下 是否通过 通过
代码语言 Pascal 运行时间 0.015 s
提交时间 2012-10-14 19:48:21 内存使用 0.41 MiB
显示代码纯文本
var
  a,b,c,d,e,n:longint;
  qq:array[1..1000] of string;
    procedure qsort(hd,lt:longint);
      var
         i,j:longint;
         k,x:string;
        begin
          i:=hd;
          j:=lt;
          x:=qq[(i+j) div 2];
            repeat
              while qq[i]+x>x+qq[i] do inc(i);
              while qq[j]+x<x+qq[j] do dec(j);
                 if j>=i then begin
                    k:=qq[i];
                    qq[i]:=qq[j];
                    qq[j]:=k;
                    inc(i);
                    dec(j);
              end;
        until i>j;
      if i<lt then qsort(i,lt);
      if j>hd then qsort(hd,j);
  end;
 begin
  assign(input,'brick.in');
   reset(input);
     assign(output,'brick.out');
      rewrite(output);
   readln(n);
     for a:=1 to n do
       readln(qq[a]);
       qsort(1,n);
   for a:=1 to n do
   write(qq[a]);
    close(input);
     close(output);
end.