bzoj 1724 堆+贪心

Description

Farmer John想修理牧场栅栏的某些小段。为此，他需要N(1<=N<=20,000)块特定长度的木板，第i块木板的长度为Li(1<=Li<=50,000)。然后，FJ去买了一块很长的木板，它的长度正好等于所有需要的木板的长度和。接下来的工作，当然是把它锯成需要的长度。FJ忽略所有切割时的损失——你也应当忽略它。 FJ郁闷地发现，他并没有锯子来把这块长木板锯开。于是他把这块长木板带到了Farmer Don的农场，想向FD借用锯子。 作为一个有商业头脑的资本家，Farmer Don没有把锯子借给FJ，而是决定帮FJ锯好所有木板，当然FJ得为此付出一笔钱。锯开一块木板的费用，正比于木板的长度。如果这块木板的长度是21，那么锯开它的花费便是21美分。 谈妥条件后，FD让FJ决定切割木板的顺序，以及每次切割的位置。请你帮FJ写一个程序，计算为了锯出他想要的木板，他最少要花多少钱。很显然，按不同的切割顺序来切开木板，FJ的总花费可能不同，因为不同的切割顺序，会产生不同的中间结果。

显然，切割次数是固定（n-1）次，

显然，每次被切的木板长度越小越好

逆着去想，那么我们每次就切当前没有切的最小长度和次小长度之和即可，小根堆维护

mdzz，打到一半才发现这道题和石子合并一毛一样 

var
        n,t1,t2,size    :longint;
        ans             :int64;
        heap            :array[0..200010] of longint;
        i               :longint;
procedure heap_down(x:longint);
var
        tt,c:longint;
begin
   while 2*x<=size do
   begin
      if heap[2*x]<heap[x] then tt:=2*x else tt:=x;
      if 2*x+1<=size then
        if heap[2*x+1]<heap[tt] then tt:=2*x+1;
      if tt<>x then
      begin
         c:=heap[x]; heap[x]:=heap[tt]; heap[tt]:=c;
         x:=tt;
      end else break;
   end;
end;

begin
   read(n); ans:=0; size:=n;
   for i:=1 to n do read(heap[i]);
   for i:=n div 2 downto 1 do heap_down(i);
   for i:=1 to n-1 do
   begin
      t1:=heap[1];
      heap[1]:=heap[size];dec(size);
      heap_down(1);
      t2:=heap[1];
      heap[1]:=t1+t2;
      heap_down(1);
      inc(ans,int64(t1)+int64(t2));
   end;
   writeln(ans);
end.

——by Eirlys