陶陶抢苹果（vijos1445）

最新推荐文章于 2020-08-03 08:57:52 发布

原创最新推荐文章于 2020-08-03 08:57:52 发布 · 1.6k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#output #input #算法

vijos 专栏收录该内容

27 篇文章

订阅专栏

本文介绍了一道简单的模拟算法题目解答过程。使用快速排序算法对两个数组进行排序，并通过模拟操作解决问题。代码中详细展示了初始化、排序及核心计算步骤。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

算法：模拟

很裸的一道模拟题了，不解释了……

program VJ1445;

const
 maxn=100000;

var
 n,m:longint;
 a,b,ans,d,dd:array [0..maxn] of longint;

procedure init;
var
 i:longint;
begin
 fillchar(ans,sizeof(ans),0);
 readln(n,m);
 for i:=1 to n do read(a[i]);
 for i:=1 to m do 
  begin
   read(b[i]);
   d[i]:=i;
  end;
end;

procedure qsort1(l,r:longint);
var
 i,j,t1,t:longint;
begin
 i:=l;
 j:=r;
 t1:=a[(l+r) shr 1];
 repeat
  while a[i]>t1 do inc(i);
  while a[j]<t1 do dec(j);
  if i<=j then
   begin
    t:=a[i];
    a[i]:=a[j];
    a[j]:=t;
    inc(i);
    dec(j);
   end;
 until i>j;
 if i<r then qsort1(i,r);
 if l<j then qsort1(l,j);
end;

procedure qsort2(l,r:longint);
var
 i,j,t1,t:longint;
begin
 i:=l;
 j:=r;
 t1:=b[(l+r) shr 1];
 repeat
  while b[i]>t1 do inc(i);
  while b[j]<t1 do dec(j);
  if i<=j then
   begin
    t:=b[i];
    b[i]:=b[j];
    b[j]:=t;
    t:=d[i];
    d[i]:=d[j];
    d[j]:=t;
    inc(i);
    dec(j);
   end;
 until i>j;
 if i<r then qsort2(i,r);
 if l<j then qsort2(l,j);
end;

procedure teemp;
var
 i:longint;
begin
 for i:=1 to m do dd[d[i]]:=i;
end;

procedure main;
var
 i:longint;
begin
 for i:=1 to n do inc(ans[((i-1) mod m)+1],a[i]);
 for i:=1 to m do write(ans[dd[i]],' ');
end;

begin
 assign(input,'VJ1445.in'); reset(input);
 assign(output,'VJ1445.out'); rewrite(output);
 
 init;
 qsort1(1,n);
 qsort2(1,m);
 teemp;
 main;

 close(input); close(output);
end.