搜索与回溯 最佳调度问题

SSL 2287
题目大意
给出n个待做的工作
给出k，可以并行使用的机器
求最小做完n项工作
（DFS）

var
  n,k,min:longint;
  a,b:array[0..1000]of longint;
procedure init;
var
  i,j:longint;
begin
  readln(n,k);
  for i:=1 to n do
   read(a[i]);
  for i:=1 to n-1 do
   for j:=i+1 to n do
    if a[i]<a[j] then
     begin
       a[0]:=a[i];a[i]:=a[j];a[j]:=a[0];
     end;
  min:=maxlongint;
end;

procedure search(dep,max:longint);
var
  i:longint;
begin
  if dep>n then begin if min>max then min:=max; exit; end;
  if max>=min then exit;
  for i:=1 to k do
   begin
     inc(b[i],a[dep]);
     if b[i]>max then search(dep+1,b[i])
      else search(dep+1,max);
     dec(b[i],a[dep]);
   end;
end;

begin
  init;
  search(1,0);
  writeln(min);
end.

题解，不想说什么。
很简单，暴力搜索（深搜）
每次都给没有做过的工作放入一个机器里。
嗯
就这么简单
傻X题
向幂伟致敬！
http://blog.csdn.net/qq_33229466/article/details/50646919