[2017雅礼集训]day4 T1 洗衣服 贪心

其实我也不知到为什么洗衣服和晒衣服是独立的。。。
既然是独立的，我们就贪心的把每件衣服最快能洗完的时刻和最快能烘干的时刻分别先预处理出来，就是贪心的往当前结束时间最早的机器里放（堆维护）。
然后两个数组一个正着一个倒着加起来取个max就可以了。
代码：

type
 node=record
    dt:int64;
    id:longint;
  end;

var
  l,n,m,i,j,size,o:longint;
  z,ans:int64;
  w,d:array[1..2000000]of int64;
  t,r:array[1..2000000]of int64;
  dui:array[1..1001000]of node;
const maxl=10000000000000000;

procedure swap(var x,y:node);
var
  t:node;
begin
  t:=x;
  x:=y;
  y:=t;
end;

procedure ins(x:int64;y:longint);
var
  i:longint;
begin
  inc(size);
  dui[size].dt:=x;
  dui[size].id:=y;
  i:=size;
  while (i>1)and(dui[i].dt<dui[i div 2].dt) do
  begin
    swap(dui[i],dui[i div 2]);
    i:=i div 2;
  end;
end;
procedure del();
var
  i:longint;
begin
  dui[1]:=dui[size];
  dui[size].dt:=maxl;
  dui[size].id:=0;
  dec(size);
  i:=1;
  while (i*2+1<=size)and((dui[i].dt>dui[i*2].dt)or(dui[i].dt>dui[i*2+1].dt)) do
  begin
    if (dui[i*2].dt<=dui[i*2+1].dt) then begin swap(dui[i],dui[i*2]); i:=i*2; end
    else
    begin
      swap(dui[i],dui[i*2+1]);
      i:=i*2+1;
    end;
  end;
end;
begin
  readln(l,n,m);
  size:=0;
  for i:=1 to 100010 do
    dui[i].dt:=maxl;
  for i:=1 to n do
  begin
    read(w[i]);
    ins(w[i],i);
  end;
  for i:=1 to l do
  begin
    t[i]:=dui[1].dt;
    o:=dui[1].id;
    del;
    ins(t[i]+w[o],o);
  end;
  for i:=1 to 100010 do
  begin
    dui[i].dt:=maxl;
    dui[i].id:=0;
  end;
  size:=0;
  for i:=1 to m do
  begin
    read(d[i]);
    ins(d[i],i);
  end;
  for i:=1 to l do
  begin
    r[i]:=dui[1].dt;
    o:=dui[1].id;
    del;
    ins(r[i]+d[o],o);
  end;
  ans:=0;
  for i:=1 to l do
    if ans<(t[i]+r[l-i+1])then ans:=t[i]+r[l-i+1];
  writeln(ans);

end.