烦恼的高考志愿

 

背景描述：
计算机竞赛小组的神牛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.