Cow Crossings

最新推荐文章于 2024-09-16 07:45:00 发布

weixin_30770495

最新推荐文章于 2024-09-16 07:45:00 发布

阅读量272

点赞数

CC 4.0 BY-SA版权

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

本文介绍了一种用于计算非逆序对数量的高效算法，通过先排序再遍历的方式，结合布尔数组标记，实现了对给定序列中非逆序对的有效计数。文章详细解释了算法的实现思路，并提供了完整的Pascal代码示例。

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

题面：

思路：

求非逆序对的个数

代码：

var n,i,j,ans,k:longint;
 a,b:Array[0..100005] of longint;
  f:array[0..100005] of boolean;

    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:=a[i];
                a[i]:=a[j];
                a[j]:=y;
                y:=b[i];
                b[i]:=b[j];
                b[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,'crossings.in');
reset(input);
assign(output,'crossings.out');
rewrite(output);

 read(n);
 for i:=1 to n do read(a[i],b[i]);

 sort(1,n);

 k:=-maxlongint;
 for i:=1 to n do
  if k>a[i] then f[i]:=true else k:=a[i];

 k:=maxlongint;
 for i:=n downto 1 do
  if k<a[i] then f[i]:=true else k:=a[i];

 ans:=0;

 for i:=1 to n do
  if f[i] then inc(ans);

 writeln(n-ans);


close(input);close(output);
end.