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”）類型儲存結果。

Sample Input

4 2
2 5 6 3
1 4 6 7

Sample Output

10

Data Constraint

Hint

【樣例說明】
　　配對（2，7）、（6，1）結果為|2-7|+|6-1|=10。
【數據說明】
　　對于10%的數據，有k≤5，n≤10；
　　對于30%的數據，有n≤100；
　　對于50%的數據，有n≤1000；
　　對于100%的數據，有k≤n≤100000；a[i]，b[i]≤1000000。
.
.
.
.
.
.

分析

貪心，排序，累加。
.
.
.
.
.
.

程序：

var n,k,i,l,r:longint; ans:int64; a,b:array[-1..200000]of longint;procedure kp1(l,r:longint); var i,j,mid:longint; beginif l>=r then exit;i:=l;j:=r;mid:=a[(i+j) div 2];repeatwhile a[i]<mid do inc(i);while a[j]>mid do dec(j);if i<=j thenbegina[-1]:=a[i];a[i]:=a[j];a[j]:=a[-1];inc(i);dec(j);end;until i>j;kp1(l,j);kp1(i,r); end;procedure kp2(l,r:longint); var i,j,mid:longint; beginif l>=r then exit;i:=l;j:=r;mid:=b[(i+j) div 2];repeatwhile b[i]>mid do inc(i);while b[j]<mid do dec(j);if i<=j thenbeginb[-1]:=b[i];b[i]:=b[j];b[j]:=b[-1];inc(i);dec(j);end;until i>j;kp2(l,j);kp2(i,r); end;beginreadln(n,k);for i:=1 to n doread(a[i]);readln;for i:=1 to n doread(b[i]);kp1(1,n);kp2(1,n);l:=1;r:=n;ans:=0;for i:=1 to k dobeginif l=r thenbeginans:=ans+abs(b[l]-a[l]);break;end;if abs(b[l]-a[l])>=abs(b[r]-a[r]) thenbeginans:=ans+abs(b[l]-a[l]);inc(l);end elsebeginans:=ans+abs(b[r]-a[r]);dec(r);end;end;write(ans); end.

轉載于:https://www.cnblogs.com/YYC-0304/p/9499983.html

總結

以上是生活随笔為你收集整理的最大配对的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。