烦恼的高考志愿

 

背景描述：
计算机竞赛小组的神牛V神终于结束了万恶的高考，然而作为班长的他还不能闲下来，班主任老t给了他一个艰巨的任务：帮同学找出最合理的大学填报方案。可是v神太忙了，身后还有一群小姑娘等着和他约会，于是他想到了同为计算机竞赛小组的你，请你帮他完成这个艰巨的任务。
题目描述：
根据n位学生的估分情况，分别给每位学生推荐一所学校，要求学校的预计分数线和学生的估分相差最小（可高可低，毕竟是估分嘛），这个最小值为不满意度。求所有学生不满意度和的最小值。读入数据有三行，第一行读入两个整数m,n。m表示学校数，n表示学生数。第二行共有m个数，表示m个学校的预计录取分数。第三行有n个数，表示n个学生的估分成绩。输出数据有一行，为最小的不满度之和。
样例数据：
input:
4 3
513 598 567 689
500 600 550

output:
32

数据范围：对于30%的数据，m，n<=1000,估分和录取线<=10000;对于100%的数据，n,m<=100,000,录取线<=1000000。

var a,b:array[0..1000000] of longint;
n,m,i,j,l,r,mid:longint;
k,sum:int64;
procedure qsort(l,r:longint);
var i,j,k,x:longint;
begin
 i:=l; j:=r; x:=b[(l+r) div 2];
 repeat
  while b[i]<x do inc(i);
  while b[j]>x do dec(j);
  if i<=j then
   begin
    k:=b[i]; b[i]:=b[j]; b[j]:=k;
    inc(i); dec(j);
   end;
 until i>j;
 if i<r then qsort(i,r);
 if l<j then qsort(l,j);
end;
begin
 assign(input,'input.in'); assign(output,'output.out');
 reset(input); rewrite(output);
 readln(m,n);
 for i:=1 to m do read(b[i]);
 readln;
 for i:=1 to n do read(a[i]);
 readln;
 qsort(1,m); sum:=0;
 for i:=1 to n do
  begin
   l:=1; r:=m;//fuck 
   while r-1>l do
    begin
     mid:=(l+r) div 2;
     if b[mid]<a[i] then l:=mid
     else r:=mid;
    end;
   k:=abs(a[i]-b[l]);
   if k>abs(a[i]-b[r]) then k:=abs(a[i]-b[r]);
   sum:=sum+k;
  end;
 writeln(sum);
 close(input); close(output);
end.