Divide

Divide

 

[题目描述]

      GG有n份工作要完成，每一份工作有一个类型系数A_k。由于工作数目太多了，GG光靠自己的能力是无法完成的，所以他打算雇佣很多工人来帮他。工人是非常精明的，他们要求按照工作数目收费，如果分派给他的工作数目小于k，他们将不愿意接受。工人完成一份工作的收费是C。但是，GG也是很精明的老板，考虑到有些工作之间很类似，完成了一份工作之后可以很轻松的完成下一份工作，所以他提出了这样的要求，假设工人接受的工作的类型系数是{B1, B2, B3 … Bp}，他能够得到的报酬将是C + (maxB – minB)²。

      作为GG的助理，现在你有责任告诉他，为了完成这些工作，他至少要支付多少钱给工人（不算你的工资）？

 

[输入文件]

      第一行三个正整数n、k、C（1 <= k <= n <= 10⁶，0 < C <= 10⁹），意义如题所述；

      第二行n个正整数描述n份工作的类型系数（0 < A <= 10⁹）。

 

[输出文件]

      一个整数表示GG最少需要支付的工资（保证答案不大于10¹⁷）。

 

[样例输入]

2 1 1

2 4

 

[样例输出]

2

 

[样例说明]

如果分给一个工人做，收费为1 + (4 – 2)² = 5；

如果分给两个工人作，收费为1 + 1 = 2；

所以最小收费为2。

 

[数据约定]

对于50分的测试数据中保证有N <= 1000

对于80分的测试数据中保证有N <= 100000

======================================

60分算法..

===================

var  n,k,c:longint;  a:array[1..1000000]of int64;  f:array[0..1000000]of int64;  procedure init;begin  assign(input,'divide.in');  assign(output,'divide.out');  reset(input); rewrite(output);end;procedure terminate;begin  close(input); close(output);  halt;end;function min(a,b:int64):int64;begin  if a<b then exit(a);  exit(b);end;procedure qsort(s,t:longint);var  i,j:longint;  x:longint;  tem:longint;begin  x:=a[(s+t) shr 1];  i:=s; j:=t;  repeat    while x<a[j] do dec(j);    while a[i]<x do inc(i);    if i<=j then      begin        tem:=a[i];        a[i]:=a[j];        a[j]:=tem;        inc(i); dec(j);      end;  until i>j;  if i<t then qsort(i,t);  if s<j then qsort(s,j);end;procedure main;var  i,j:longint;begin  readln(n,k,c);  fillchar(f,sizeof(f),$7f);  for i:=1 to n do read(a[i]);  qsort(1,n);  {for i:=1 to n do    write(a[i],' '); }  f[0]:=0;  for i:=k to n do    for j:=i-k downto 0 do      begin        f[i]:=min(f[i],f[j]+sqr(a[i]-a[j+1])+c);      end;  writeln(f[n]);end;begin  init;  main;  terminate;end.