July 16th 模拟赛C T2 奶牛晒衣服 Solution

空降题目处
点我点我点我

Description:

在熊大妈英明的带领下，时针和它的同伴生下了许多牛宝宝。熊大妈决定给每个宝宝都穿上可爱的婴儿装。于是，为牛宝宝洗晒衣服就成了很不爽的事情。
圣人王担负起了这个重任。洗完衣服后，你就要弄干衣服。衣服在自然条件下用1的时间可以晒干A点湿度。抠门的熊大妈买了1台烘衣机。使用烘衣机可以让你用1的时间使1件衣服除开自然晒干的A点湿度外，还可烘干B点湿度，但在1的时间内只能对1件衣服使用。
N件衣服因为种种原因而不一样湿，现在告诉你每件衣服的湿度，要你求出弄干所有衣服的最少时间（湿度为0为干）。

Input

第一行N,A,B；接下来N行，每行一个数，表示衣服的湿度（1<=湿度，A，B<=500000，1<=N<=500000）。

Output

一行，最少时间。

Solution

利用堆排，每次将最大的减去B，重新入堆。
时间复杂度 O(2Nlogn)

Program

C++

#include
#include
#include
using namespace std;

int t[700000],num,n,a,b,ans,r;

void up(int x);
void down(int x);
void insert(int x);
void del(int x);

int main()
{
    scanf("%d%d%d",&n,&a,&b);
    for (int i=1;i<=n;i++)
    {
        scanf("%d",&r);
        insert(r);
    }
    while (t[1]>ans*a)
    {
        insert(t[1]-b);
        del(1);
        ans++;
    }
    printf("%d\n",ans);
}

void up(int x)
{
    while ((x>1)&&(t[x]>t[x/2]))
    {
        swap(t[x],t[x/2]);
        x=x/2;
    }
}

void down(int x)
{
    int y;
    while ((x*2<=num)&&(t[x*2]>=t[x])||(x*2+1<=num)&&(t[x*2+1]>=t[x]))
    {
        y=x*2;
        if (t[x*2+1]>=t[x*2])
            y++;
        swap(t[x],t[y]);
        x=y;
    }
}

void insert(int x)
{
    num++;
    t[num]=x;
    up(num);
}

void del(int x)
{
    if (t[num]else
    {
        t[x]=t[num];
        num--;
        up(x);
    }
}

Pascal

var
    num,n,a,b,ans,r,i:longint;
    t:array [0..700000] of longint;

procedure swap(var x,y:longint);
var
    t:longint;

begin

    t:=x;
    x:=y;
    y:=t;

end;

procedure up(x:longint);
begin

    while (x>1) and (t[x]>t[x div 2]) do
    begin
        swap(t[x],t[x div 2]);
        x:=x div 2;
    end;

end;

procedure down(x:longint);
var
    y:longint;

begin

    while ((x*2<=num) and (t[x*2]>=t[x]) or (x*2+1<=num) and (t[x*2+1]>=t[x])) do
    begin
        y:=x*2;
        if (t[x*2+1]>=t[x*2]) then
            inc(y);
        swap(t[x],t[y]);
        x:=y;
    end;

end;

procedure insert(x:longint);
begin

    inc(num);
    t[num]:=x;
    up(num);

end;

procedure del(x:longint);
begin

    if (t[num]then
    begin
        t[x]:=t[num];
        dec(num);
        down(x);
    end else
    begin
        t[x]:=t[num];
        dec(num);
        up(x);
    end;

end;

begin

    readln(n,a,b);
    for i:=1 to n do
    begin
        read(r);
        insert(r);
    end;
    while t[1]>ans*a do
    begin
        insert(t[1]-b);
        del(1);
        inc(ans);
    end;
    writeln(ans);

end.