魔法照片

题目描述

一共有n（n≤20000）个人（以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]相同，编号小的优先。

输入输出格式

输入格式：

第一行输入用空格隔开的两个整数，分别是n和k。

第二行给出了10个正整数，分别是E[1]到E[10]。

第三行给出了n个正整数，第i个数表示编号为i的人的权值W[i]。

输出格式：

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

输入输出样例

输入样例#1：

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

const  maxn=100000;var  n,k:longint;  a,b,c,d:array[0..maxn] of longint;  e:array[0..maxn] of longint;procedure init;  var    i:longint;  begin    readln(n,k);    for i:=1 to 10 do      read(e[i]);    readln;    for i:=1 to n do      begin        read(b[i]);        a[i]:=i;      end;  end;procedure qsort(l,r:longint);  var    i,j,mid,key1,key2:longint;  begin    if l>r then exit;    mid:=l+random(r-l+1);    key1:=b[mid];    key2:=a[mid];    i:=l;j:=r;    repeat      while (b[i]>key1) or (b[i]=key1) and (a[i]<key2) do inc(i);      while (b[j]<key1) or (b[j]=key1) and (a[j]>key2) do dec(j);      if i<=j then        begin          a[0]:=a[i]; a[i]:=a[j]; a[j]:=a[0];          b[0]:=b[i]; b[i]:=b[j]; b[j]:=b[0];          c[0]:=c[i]; c[i]:=c[j]; c[j]:=c[0];          d[0]:=d[i]; d[i]:=d[j]; d[j]:=d[0];          inc(i); dec(j);        end;    until i>j;    qsort(l,j);    qsort(i,r);  end;procedure clca;  var    i:longint;  begin    for i:=1 to n do      c[i]:=i;    for i:=1 to n do      d[i]:=(c[i]-1) mod 10 +1;    for i:=1 to n do      b[i]:=b[i]+e[d[i]];  end;procedure print;  var    i:longint;  begin    for i:=1 to k-1 do      write(a[i],' ');    if k<>0 then write(a[k]);  end;begin  init;  qsort(1,n);  clca;  qsort(1,n);  print;end.

输出样例#1：

10 9 8 7 6 5 4 3 2 1