佳佳的魔法照片

Description

【题目背景】
如果你看过《哈利•波特》，你就会知道魔法世界里的照片是很神奇的。也许是因为小魔法师佳佳长的太帅，很多人都找他要那种神奇的魔法照片，而且还都要佳佳和他的MM的合照。那些照片可是非常珍贵的，他到底应该把照片给谁呢？
　　一共有n个人（以1–n编号）向佳佳要照片，而佳佳只能把照片给其中的k个人。佳佳按照与他们的关系好坏的程度给每个人赋予了一个初始权值W[i]。然后将初始权值从大到小进行排序，每人就有了一个序号D[i]（取值同样是1–n）。按照这个序号对10取模的值将这些人分为10类。也就是说定义每个人的类别序号C[i]的值为(D[i]-1) mod 10 +1，显然类别序号的取值为1–10。第i类的人将会额外得到E[i]的权值。你需要做的就是求出加上额外权值以后，最终的权值最大的k个人，并输出他们的编号。在排序中，如果两人的W[i]相同，编号小的优先。

Input

第一行输出用空格隔开的两个整数，分别是n和k。
第二行给出了10个正整数，分别是E[1]到E[10]。
第三行给出了n个正整数，第i个数表示编号为i的人的权值W[i]。

Output

只需输出一行用空格隔开的k个整数，分别表示最终的W[i]从高到低的人的编号。

Sample Input

10 10
1 2 3 4 5 6 7 8 9 10
2 4 6 8 10 12 14 16 18 20

Sample Output

10 9 8 7 6 5 4 3 2 1

Hint

对于50%的数据，n<=200；
对于100%的数据，n<=50 000，k<=2000，给出的所有正整数都不超过32767。

程序：

var
n,k,i:longint;
e:array[1..10]of longint;
a:array[0..50000,1..4]of longint;
procedure kp(l,r:longint);
var
i,j,mid,key1,key2:longint;
begin
    if l>r then exit;
    mid:=l+random(r-l+1);
    key1:=a[mid,2];
    key2:=a[mid,1];
    i:=l;j:=r;
    repeat
         while (a[i,2]>key1) or (a[i,2]=key1) and (a[i,1]<key2) do inc(i);
         while (a[j,2]<key1) or (a[j,2]=key1) and (a[j,1]>key2) do dec(j);
         if i<=j then
         begin
             a[0]:=a[i]; a[i]:=a[j]; a[j]:=a[0];
             inc(i); dec(j);
         end;
    until(i>j);
    kp(l,j);
    kp(i,r);
end;

begin
    readln(n,k);
    for i:=1 to 10 do
    read(e[i]);
    readln;
    for i:=1 to n do
    begin
        read(a[i,2]);
        a[i,1]:=i;
    end;
    kp(1,n);

    for i:=1 to n do
    a[i,3]:=i;

    for i:=1 to n do
    a[i,4]:=(a[i,3]-1) mod 10 +1;

    for i:=1 to n do
    a[i,2]:=a[i,2]+e[a[i,4]];
    kp(1,n);
    for i:=1 to k-1 do
    write(a[i,1],' ');
    if k<>0 then write(a[k,1]);
end.