CODEVS 3286 火柴排队

【题目描述 Description】

涵涵有两盒火柴，每盒装有 n 根火柴，每根火柴都有一个高度。现在将每盒中的火柴各自排成一列，同一列火柴的高度互不相同，两列火柴之间的距离定义为：

，其中 ai表示第一列火柴中第 i 个火柴的高度，bi表示第二列火柴中第 i 个火柴的高度。
每列火柴中相邻两根火柴的位置都可以交换，请你通过交换使得两列火柴之间的距离最小。请问得到这个最小的距离，最少需要交换多少次？如果这个数字太大，请输出这个最小交换次数对 99,999,997 取模的结果。

输入描述 Input Description

共三行，第一行包含一个整数 n，表示每盒中火柴的数目。
第二行有 n 个整数，每两个整数之间用一个空格隔开，表示第一列火柴的高度。
第三行有 n 个整数，每两个整数之间用一个空格隔开，表示第二列火柴的高度。

输出描述 Output Description

输出共一行，包含一个整数，表示最少交换次数对 99,999,997 取模的结果。

样例输入 Sample Input

[Sample 1]
4 
2 3 1 4 
3 2 1 4
[Sample 2]
4 
1 3 4 2 
1 7 2 4

样例输出 Sample Output

[Sample 1]
1
[Sample 2]
2

数据范围及提示 Data Size & Hint

【样例1说明】
最小距离是 0，最少需要交换 1 次，比如：交换第 1 列的前 2 根火柴或者交换第 2 列的前 2 根火柴。
【样例2说明】
最小距离是 10，最少需要交换 2 次，比如：交换第 1 列的中间 2 根火柴的位置，再交换第 2 列中后 2 根火柴的位置。
【数据范围】
对于 10%的数据， 1 ≤ n ≤ 10； 
对于 30%的数据，1 ≤ n ≤ 100； 
对于 60%的数据，1 ≤ n ≤ 1,000； 
对于 100%的数据，1 ≤ n ≤ 100,000，0 ≤火柴高度≤ 2^31 - 1。

【解题思路】

很明显可以看出，排序之后一一对应的值就是最小值

这个题刚开始我是把A排序，然后按照A的变化去变换B然后求逆序对，这个做法并不是正确的因为B刚开始也是无序的，如果将B按照A的方式求逆序对并不能得出正确的解。

应该把A,B都排一下序，然后按照B的标号处理A，就是另开一个C数组，数组变量是A的序号，组内储存对应位置B的标号，表示需要把在A[I]元素移动到j位置上，再将A重标号后的数据求逆序对。

 program huochai;
 type aa=record
      no,sum:Longint;
      end;
      zz=array[..] of aa;
 const mo=;
 var n,i,ans:longint;
     a,f:array[..] of aa;
     b,c,d,e:array[..] of longint;
 procedure sort(l,r: longint; var c:zz);
       var
          i,j,x,y: longint;
       begin
          i:=l;
          j:=r;
          x:=c[(l+r) div ].sum;

          repeat
            while c[i].sum<x do
             inc(i);
            while x<c[j].sum do
             dec(j);
            if not(i>j) then
              begin
                 c[]:=c[i];
                 c[i]:=c[j];
                 c[j]:=c[];
                 inc(i);
                 j:=j-;

              end;

          until i>j;
          if l<j then
            sort(l,j,c);
          if i<r then
            sort(i,r,c);
       end;

 procedure guibing(l,r:longint);
 var mid,i,q1,q2,q3:longint;
 begin
     mid:=(l+r) div ;
     if l+<r then
     begin
         guibing(l,mid);
         guibing(mid+,r);
     end;
     for i:=l to mid do
     c[i]:=b[i];
     for i:=mid+ to r do
     d[i]:=b[i];
     q1:=l;
     q2:=mid+;
     q3:=l;
     while (q1<mid+) and (q2<r+) do
     begin
         if c[q1]<d[q2] then
         begin
             e[q3]:=c[q1];
             inc(q1);
             inc(q3);
         end
         else
         begin
             e[q3]:=d[q2];
             ans:=((mid-q1+) mod mo+ans) mod mo;
             inc(q3);
             inc(q2);
         end;
     end;
         if q2=r+ then
         for i:=q1 to mid do
         begin
             e[q3]:=c[i];
             inc(q3);
         end
         else
         for i:=q2 to r do
         begin
             e[q3]:=d[i];
             inc(q3);
         end;
         for i:=l to r do b[i]:=e[i];

 end;

 begin
     read(n);
     for i:= to n do read(a[i].sum);
     for i:= to n do
     begin
         a[i].no:=i;
         f[i].no:=i;
     end;
     for i:= to n do read(f[i].sum);
      sort(,n,a);
      sort(,n,f);
     for i:= to n do b[a[i].no]:=f[i].no;//重点在这里！！！

     guibing(,n);
     writeln(ans);
 end.