最大配对 jzoj 1280

Description

　　给出2个序列A={a[1]，a[2]，…，a[n]}，B={b[1]，b[2]，…，b[n]}，从A、B中各选出k个元素进行一一配对（可以不按照原来在序列中的顺序），并使得所有配对元素差的绝对值之和最大。
　　例如各选出了a[p[1]]，a[p[2]]，……，a[p[k]]与b[q[1]]，b[q[2]]，……，b[q[k]]，其中p序列中的元素两两不相同，q序列中的元素两两不相同，那么答案为|a[p[1]]－b[q[1]]|＋|a[p[2]]－b[q[2]]|＋……＋|a[p[k]]－b[q[k]]|，现在任务也就是最大化这个答案。

Input

　　输入的第1行为2个正整数n，k，表示了序列的长度和各要选出元素的个数。
　　第2行包含n个正整数，描述了A序列。
　　第3行包含n个正整数，描述了B序列。

Output

　　输出仅包括一个非负整数，为最大的结果。
　　注意：答案可能超过2^31-1，请使用int64或者long long（若使用printf输出请用“%I64d”）类型储存结果。

题解

排个序累加就OK了，

代码

var
  nm,k:longint;
  a,b:array [0..100001] of longint;
  ans:int64;
procedure init;
var
  i,x:longint;
begin
  readln(nm,k);
  for i:=1 to nm do
    read(a[i]);
  for i:=1 to nm do
    read(b[i]);
end;

procedure qsort1(l,r:longint);
var
  i,j,mid,t:longint;
begin
  if l>r then exit;
  i:=l; j:=r;
  mid:=a[(i+j) div 2];
  repeat
    while a[i]<mid do inc(i);
    while a[j]>mid do dec(j);
    if i<=j then
      begin
        t:=a[i]; a[i]:=a[j]; a[j]:=t;
        inc(i); dec(j);
      end;
  until i>j;
  qsort1(i,r);
  qsort1(l,j);
end;

procedure qsort2(l,r:longint);
var
  i,j,mid,t:longint;
begin
  if l>r then exit;
  i:=l; j:=r;
  mid:=b[(i+j) div 2];
  repeat
    while b[i]>mid do inc(i);
    while b[j]<mid do dec(j);
    if i<=j then
      begin
        t:=b[i]; b[i]:=b[j]; b[j]:=t;
        inc(i); dec(j);
      end;
  until i>j;
  qsort2(i,r);
  qsort2(l,j);
end;

procedure main;
var
  l,r,i,o,p:longint;
begin
  i:=0;
  l:=1; r:=nm;
  while i<k do
    begin
      o:=abs(a[l]-b[l]);
      p:=abs(b[r]-a[r]);
      if o>p then
        begin
          ans:=ans+o; inc(l);
        end else
        begin
          ans:=ans+p; dec(r);
        end;
      inc(i);
    end;
  write(ans);
end;

begin
  init;
  qsort1(1,nm);
  qsort2(1,nm);
  main;
end.