Cod sursa(job #3854)

Utilizator CezarMocanCezar Mocan CezarMocan Data 29 decembrie 2006 09:25:48
Problema Semne Scor 85
Compilator fpc Status done
Runda Arhiva de probleme Marime 2.55 kb
type vector=array[0..50000]of longint;
var i,j,n,s,e,i1,i2,max:longint;
    v,plus,minus:vector;
    sort,sort1:array[1..5000000]of word;
    gasit:boolean;
    sum:int64;

procedure qsort(ls,ld:longint;var v:vector);
var i,j,aux:longint;
begin
  i:=ls;j:=ld;
  while true do begin
    while (v[i]<=v[j])and(i<>j) do inc(i);
    if i=j then break;
    aux:=v[i];v[i]:=v[j];v[j]:=aux;dec(j);
    while (v[i]<=v[j])and(i<>j) do dec(j);
    if i=j then break;
    aux:=v[i];v[i]:=v[j];v[j]:=aux;inc(i);
  end;
  if j-1>ls then qsort(ls,j-1,v);
  if j+1<ld then qsort(j+1,ld,v);
end;


begin
randomize;
assign(input,'semne.in');reset(input);
assign(output,'semne.out');rewrite(output);
readln(n,s);
sum:=0;
plus[0]:=n;
for i:=1 to n do
        begin
        read(v[i]);
        plus[i]:=v[i];
        sum:=sum+v[i];
        end;
i:=0;
while sum<>s do
        begin
        inc(i);
        if i mod 75=0 then
                randomize;
        if sum<s then
                begin
                e:=random(minus[0])+1;
                sum:=sum+2*minus[e];
                inc(plus[0]);
                plus[plus[0]]:=minus[e];
                minus[e]:=minus[minus[0]];
                dec(minus[0]);
                end;
        if sum>s then
                begin
                e:=random(plus[0])+1;
                sum:=sum-2*plus[e];
                inc(minus[0]);
                minus[minus[0]]:=plus[e];
                plus[e]:=plus[plus[0]];
                dec(plus[0]);
                end;
        end;
qsort(1,plus[0],plus);
qsort(1,minus[0],minus);
{for i:=1 to plus[0] do
        begin
        if plus[i]>max then
                max:=plus[i];
        inc(sort[plus[i]]);
        end;
for i:=1 to minus[0] do
        begin
        if minus[i]>max then
                max:=minus[i];
        inc(sort1[minus[i]]);
        end;
for i:=1 to max do
        begin
        for j:=1 to sort[i] do
                write('+');
        for j:=1 to sort1[i] do
                write('-');
        end;}

i1:=1;
i2:=1;
while (i1<=plus[0])and(i2<=minus[0]) do
        begin
        while (plus[i1]<=minus[i2])and(i1<=plus[0]) do
                begin
                write('+');
                inc(i1);
                end;
        while (plus[i1]>minus[i2])and(i2<=minus[0]) do
                begin
                write('-');
                inc(i2);
                end;
        end;
for i:=i1 to plus[0] do
        write('+');
for i:=i2 to minus[0] do
        write('-');
close(input);close(output);
end.