vijos-p1440 2008.11.9

最新推荐文章于 2016-02-05 13:56:42 发布

Batman_

最新推荐文章于 2016-02-05 13:56:42 发布

阅读量378

点赞数

分类专栏： VIJOS

本文链接：https://blog.csdn.net/Batman_/article/details/50637771

版权

VIJOS 专栏收录该内容

23 篇文章 1 订阅

订阅专栏

vijos-p1440 2008.11.9

在Gridland国家，有N个处于不同位置的士兵。该国上的地方都用两个坐标（X，Y）来表示。士兵能进行一次移动，每个士兵都可向上、向下、向左、或向右移动一个单位长，这样他就能把自己的X或Y改变1或-1。

士兵们想进入一个水平线，彼此靠近，这样他们的最后位置就是（X，Y）、（X+1，Y），…，（X+N，Y））。水平线上的士兵的最后顺序以及整数X和Y，都是任意的。

现在目标是求如此配置士兵的最少移动数。

两个或两个以上的士兵在同一时间不处于同一位置。

输入格式 Input Format

输入文件的第一行含有一个整数N，1 <= N <=10000,N为士兵的数量。输入文件以后的N行应含有士兵的初始位置，对于每一个i, 1<= i <= N,输入文件的第I+1行含有两个用空格分开的整数x[i],y[i]，他们表示第I个士兵的坐标，-10000<=x[i],y[i] <=10000.

输出格式 Output Format

仅有一行，它的值为使士兵移动到水平线彼此相邻的最小移动次数。

样例输入 Sample Input

1 0

2 4

3 2

样例输出 Sample Output

解法描述

由于是求曼哈顿距离，所以可以将x, y分量分开考虑。

y: 要将所有的yi集中到某个y0上。

可以通过微量法证明y0一定在某个已知yi上。再通过微量法证明y0一定是yi的中位数。

x: 要将所有的x1集中到某个x0。其他xi依次相间1排下去。

先将x排序，可以证明x的顺序一定就是最终的序列的顺序（因为交叉位置的话解更差）。

由于定了序，所以有xi = x0 + i - 1，则可以将问题转化为x'i = xi - (i - 1) = x0。

x'就是与y同样的问题了，求xi -(i - 1)的中位数x0就可以了。

program cao;
var
  a:array[0..10000,1..3] of longint;
  b,c,d,e,f,i,j,k,l,n,m,p,q,ans:longint;
procedure init;
begin
  read(n);
  for i:=1 to n do
    read(a[i,1],a[i,2]);
end;
procedure qsort(left,right:longint);
var
  i,j,x:longint;
begin
  i:=left;
  j:=right;
  x:=a[(i+j) div 2,k];
  while i<j do
  begin
    while a[i,k]<x do inc(i);
    while a[j,k]>x do dec(j);//想要qsort谁，这就是谁
    if i<=j then
    begin
      a[0]:=a[i];
      a[i]:=a[j];
      a[j]:=a[0];
      inc(i);
      dec(j);//多维数组可以这样交换赋值
    end;
  end;
  if i<right then qsort(i,right);
  if j>left then qsort(left,j);
end;
procedure main;
begin
  ans:=0;
  k:=2;//纵坐标排序
  qsort(1,n);
  l:=(n+1) div 2;
  for i:=1 to n do
ans:=ans+abs(a[I,k]-a[l,k]);
  k:=1;//横坐标排序
  qsort(1,n);
  for i:=1 to n do
    a[i,3]:=a[i,1]-i+1;
  k:=3;
  qsort(1,n);
  e:=a[l,3];
  k:=1;
  qsort(1,n);
  for i:=1 to n do
    ans:=ans+abs(a[i,1]-(e+i-1));
end;
procedure print;
begin
  writeln(ans);
end;
begin
  init;
  main;
  print;
 end.