Patrik

最新推荐文章于 2025-01-19 04:02:02 发布

转载最新推荐文章于 2025-01-19 04:02:02 发布 · 69 阅读

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/godrose/p/9742148.html

本文深入探讨了一种名为PATRIK的排序算法实现细节，通过具体的代码示例，详细解释了该算法如何进行数组排序并计算特定条件下的操作次数。文章首先定义了必要的变量和数组，然后使用双指针技巧进行元素交换，最后通过一系列步骤优化排序过程并统计结果。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

题面：

思路：

代码：

var i,j,n,m,x,y,tail,tt:longint;
 a,q,f,id,b:array[0..500005] of longint;
  ans:int64;

    procedure sort(l,r: longint);
      var
         i,j,x,y: longint;
      begin
         i:=l;
         j:=r;
         x:=b[(l+r) div 2];
         repeat
           while b[i]<x do
            inc(i);
           while x<b[j] do
            dec(j);
           if not(i>j) then
             begin
                y:=b[i];
                b[i]:=b[j];
                b[j]:=y;
                y:=id[i];
                id[i]:=id[j];
                id[j]:=y;
                inc(i);
                j:=j-1;
             end;
         until i>j;
         if l<j then
           sort(l,j);
         if i<r then
           sort(i,r);
      end;

 begin

 assign(input,'patrik.in');
 reset(input);
 assign(output,'patrik.out');
 rewrite(output);

 read(n);
 for i:=1 to n do begin read(b[i]); id[i]:=i; end;
 sort(1,n);
 tt:=0;
 for i:=1 to n do
  if b[i]=b[i-1] then a[id[i]]:=tt else begin inc(tt); a[id[i]]:=tt; end;
 tail:=1; q[1]:=a[1]; f[a[1]]:=1;
 for i:=2 to n do
  begin
   while (a[i]>q[tail]) and (1<=tail) do begin dec(f[q[tail]]); dec(tail); inc(ans); end;
   inc(tail); q[tail]:=a[i]; inc(ans,f[a[i]]); inc(f[a[i]]);
   if q[1]<>a[i] then inc(ans);
  end;

 writeln(ans);


close(input);close(output);


end.